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CHAPTER  1 


INTRODUCTION 


1 . 1   Simulation 

Simulation  is  a  technique  for  solving  problems.  It 
can  be  defined  as  a  procedure  in  which  experiments  are 
performed  on  a  model  of  a  system  in  order  to  determine  how 
the  system  would  respond  to  changes  either  in  its  structure 
or  in  its  environment.  It  can  be  much  more  than  just  a 
tool  for  testing  a  proposed  facility  or  executing  new 
operating  methods. 

Simulation  is  essentially  a  procedure  in  which  system 
outputs  are  defined  and  analyzed  as  logical  and 
mathematical  functions  of  system  inputs.  There  are,  to  be 
sure,  numerous  details  that  complicate  simulation 
methodology — things  like  random  number  generators, 
simulation  languages,  statistical  methods,  design  of 
experiments  and  a  host  of  others.  But  basically, 
simulation  is  nothing  more  than  an  efficient  way  of 
transforming  input  to  output.  Whether  we  are  interested  in 
evaluating  a  proposed  design  for  a  system  to  be  created, 
assessing  the  impact  of  changing  a  policy,  evaluating  the 
feasibility  of  new  products  or  assessing  the  impact  of 
additional  resources,  simulation  can  give  us  estimates  that 
describe  the  efficiency  with  which  inputs  are  being  used. 


The  potential  for  applications  in  this  respect  is 
unlimited.  Numerous  applications  exist  in  manufacturing, 
including  facilities  design,  production  planning, 
production  scheduling,  inventory  management,  quality- 
control,  material  handling  and  distribution. 

1 . 2   Interactive  Simulation 

Broadly  speaking,  in  interactive  simulation,  the  user 
is  allowed  to  make  possible  dynamic  changes  during  the 
course  of  the  simulation.  Today  it  is  almost  taken  for 
granted,  but  it  was  only  a  few  years  ago  that  all 
simulation  was  done  in  a  batch  mode  on  a  mainframe  computer 
with  no  graphics.  Some  interactivity  has  been  provided  on 
the  mainframe,  but  it  is  usually  in  the  form  of  input  of 
data  and  editing  models  which  are  then  submitted  for  batch 
execution.  In  a  similar  way  graphics  became  available  on 
the  mainframe  in  a  limited  fashion.  The  microcomputer  has 
caused  a  revolution  in  the  way  we  output  results. 
Interactivity  goes  beyond  just  input  or  editing  of  data. 
It  allows  the  user  to  observe  the  program  execution  and  to 
interact  with  the  system  to  provide  more  intelligent 
results.  Summarizing,  the  interactive  simulation  has  three 
benefits  (Jones,  1985),  namely, 

*  gives   the  user  complete  control  over  the   flow   of 
the  simulation. 

*  gives   a  better  understanding  of   the   control 


situations  involved. 

*  gives   a   feel  for  interaction   of   the   controlled 
variables  and  their  impact  on  decision  results. 

1.3  Simulation  Objectives 

In  reviewing  the  purposes  to  which  simulations  have 
been  put,  the  objectives  of  simulation  are  classified  into 
four  general  categories  (Jones,  1985): 

*  Improving   communication   between   client   and 
designer-analyst . 

*  Training,    primarily   on   the    operational    and 
managerial  levels. 

*  Predicting  and  controlling  system  behavior. 

*  Design  and  development  of  new  systems. 

At  this  point,  let  me  emphasize  that  the  objective  of 
my  study  will  be  in  the  simulation  training  of  production 
management  and  to  facilitate  instruction  in  production 
scheduling  by  aiding  the  visualization  of  the  effects  of 
changes  in  a  production  and  inventory  system. 

1 . 4  Production  Management 

Production  Management  is  concerned  with  the 
organization  and  control  of  the  production  function  or, 
more  specifically,  it  is  concerned  with  the  decision-making 
necessary  to  ensure  that  goods  are  made  in  accordance  with 
the   requisite   quality   standards,   in   the   requisite 
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quantities,  at  the  requisite  times,  and  at  a  minimum  cost 
(Buffa,  1961).  Production  is  one  of  the  central  aspects  of 
business  in  that  it  has  many  frontiers  with  other 
functions,  particularly  marketing,  personnel,  and  product 
research  and  development.  The  production  function  is  the 
key  subsystem  of  a  manufacturing  enterprise  and  should 
therefore  figure  prominently  in  any  business  policy  game. 
Mize  (1971)  identified  the  following  twelve  characteristics 
of  an  inventory-production-sales  system. 

(1)  Several   finished  goods   are   sold   in   discrete 
units. 

(2)  Periodic   demand   for  each  product   is   a   random 
variable  that  may  follow  a  trend. 

(3)  Each  product   is   composed  of   assemblies   and 
parts . 

(4)  At   least   some   assemblies   are   composed   of 
subassemblies  and  purchased  parts. 

(5)  There   are   some   common   components   and/or 
subassemblies  among  the  finished  products. 

(6)  Lead  time   for  a  purchased  part   is   a   random 
variable. 

(7)  Fabrication   and   assembly   operations    are 
performed  at  work  stations. 

(8)  Different   assemblies   require    processing    on 
some  of  the  same  work  stations. 


(9)   The   quality   of  incoming  raw   materials   and   of 
manufactured  goods  is  a  random  variable. 

(10)  Processing  times  at  certain  work  stations  are 
essentially  deterministic  and  at  others  are 
random  variables. 

(11)  Machines    at   work    stations    experience 
breakdowns  at  random  intervals. 

(12)  Repair  time  of  breakdowns  is  a  random 
variable. 

The  above  points  can  serve  as  a  checklist  for  evaluating 
the  degree  of  realism  of  a  production  management  system. 
Such  characteristics  when  incorporated  in  a  simulation 
model  behave  like  stochastic  variables.  A  stochastic  model 
is  one  which  mimics  the  random  behavior  of  a  system 
simulated.  In  contrast,  a  deterministic  model  has  no 
random  behavior  associated  with  it.  This  work  will 
basically  deal  with  deterministic  models  because  they  give 
users  a  better  understanding  of  the  system  response  to 
minor  changes  in  the  input  variables. 

In  order  to  define  the  basic  data  requirements  for  a 
production  management  system,  the  physical 
interrelationships  that  exist  among  the  functional 
activities  of  the  manufacturing  system  must  be  understood 
logically  and  comprehensively. 

To  determine  the  interrelationships  among  the 
functional  activities  of  the  firm,  a  systematic  analysis  of 


the  materials,  cash  flows  and  the  information  required  to 
run  the  manufacturing  system  has  to  be  carried  out.  The 
firm  can  be  considered  as  a  set  of  four  modules:  the 
materials  system,  the  manpower  system,  the  financial 
system,  and  the  capital  equipment  system.  These  four 
systems  form  the  basic  structure  of  the  total  operational 
system  and  these  can  be  controlled  effectively  by  planning, 
forecasting,  scheduling  and  inventory  control  (Partridge 
and  Sculli,  1979). 

This  simulator  is  devoted  to  learning  and 
investigating  the  scheduling  rules  which  are  used  to 
dispatch  work  at  the  time  of  actual  production.  In 
previous  investigations  these  rules  have  been  evaluated 
with  respect  to  selected  measures  of  shop  performance,  i.e. 
machine  utilization,  the  amount  of  work-in-process 
inventory,  the  length  of  the  manufacturing  cycle  times,  or 
the  performance  against  due  dates.  Many  shops,  however, 
maintain  an  inventory  of  finished  products,  and  a 
significant  part  of  their  production  is  directed  toward 
replenishing  this  inventory.  In  these  cases  an  important 
criterion  of  the  scheduling  function  is  the  combined 
performance  of  the  shop  and  its  associated  inventory 
system. 

A  review  of  production  and  inventory  management 
literature   reveals   little   in  the  way  of   sophisticated 


instructional  methods  designed  to  acquaint  either  college 
students  or  real  world  practioners  with  a  technical  basis 
for  future  learning  in  this  area  of  decision-making.  My 
goal  in  this  thesis  is  to  develop  such  an  instructional 
tool. 

1 . 5  Previous  study  on  simulation  of  production  controls 

The  work  done  by  Mr.  M.  Arunachalam,  a  Kansas  State 
University  graduate  in  1988,  features  an  interactive  next- 
event  simulation  package  which  will  allow  the  user  to 
explore  the  rules  of  Optimized  Production  Technology 
(explained  later  in  chapter  2)  and  the  theory  of 
constraints.  The  simulator  developed  by  him  allows  the 
user  to  make  decisions  and  control  the  flow  of  the 
simulation  when  it  is  actually  in  progress.  The  simulator 
which  runs  on  an  IBM-PC  or  compatible  computer,  features  a 
character  output  in  addition  to  other  features  such  as 
zoom,  future  event  chain  display,  and  statistics  display. 
It  is  completely  menu-driven  and  is  suitable  for  use  as  an 
instructional  tool  for  students  in  understanding  the 
dynamics  of  production  control,  even  if  they  have  very 
little  knowledge  about  computers. 

1.6  Objective  of  this  study 

For  better  control  and  understanding  of  the 
simulation,   the  user  should  be  able  to  interact   with   the 


system  when  the  simulation  is  actually  in  progress.  Also 
scheduling  of  the  events  could  be  made  flexible  by 
specifying  the  event  time  in  addition  to  the  event  type. 
If  one  can  read  in  a  starting  condition,  other  than  the 
empty  shop,  many  more  interesting  problems  may  be 
investigated.  Providing  such  a  facility  in  the  simulator 
will  allow  the  user  to  save  the  current  simulation  state  on 
the  disk  and  to  run  the  simulation  at  a  later  stage  from 
that  point.  Using  the  input  file  as  a  preload  device 
allows  one  to  do  external  analysis  using  a  spreadsheet, 
say,  and  postulate  scheduling  alternatives  which  may  be 
evaluated  by  the  simulator.  Finally  it  is  interesting  to 
contrast  the  simulator  with  the  scheduling  of  a  real-life 
plant  whose  production  processes  are  greatly  more 
complicated  than  the  existing  ones.  However,  the  number  of 
constraints,  even  in  real-life,  i3  always  small,  it  is  just 
that  the  number  of  production  schedules  that  can  be  planned 
with  varying  combinations  of  the  constraints  is  enormous. 
Developing  the  above  extensions  to  the  existing  simulator 
is  my  objective  for  this  thesis. 

Specifically  these  extensions  are  listed  as  follows: 

1.  Allow  events  to  be  scheduled  at  a  future  time. 

2.  Record  progress  in  a  file  by  "WRITE" . 

3.  Re-establish  the   simulation  by  reading  in   a 
file  created  by  "WRITE"  or  by  a  word  processor. 


4.  Correct   system  problems   which  were   found   in  the 
previous  simulator: 

a )  Load 

b )  Move 

c)  Transfer   lot  problems  caused  by  the  master 
production  schedule,  and 

d)  Print  hang  up. 

5.  State  and  use  a  master  production  schedule. 

6.  Create   a  measurement  of  completed   inventory  and 
work  in  progress. 

7.  Create   multiple  input  files  to   illustrate   their 
use. 

8.  Begin  the   simulation   at  time  now   =   0   by  the 
RESUME  key. 

9.  Finally,  write  a  comprehensive  User's  Manual. 


CHAPTER  2 
OPTIMIZED  PRODUCTION  TECHNOLOGY 

2 . 1   Introduction 

For  the  past  few  years,  the  term  optimized  production 
technology  has  been  heard  more  and  more  in  production  and 
inventory  control  circles.  It  is  a  new  philosophy  of 
Production/Operations  Management  advocated  in  "The  Theory 
of  Constraints"  or  "OPT"  [Goldratt  and  Fox,  1983]. 

The  way  that  production  is  planned  and  scheduled  can 
be  critical  to  the  profitability  and  survival  of 
manufacturing  companies.  Understanding  the  correct 
principles  of  scheduling  is  important  in  selecting  between 
alternative  approaches  such  as  OPT,  MRP  and  Just-in-Time. 
Like  just-in-time,  OPT  attacks  waste  in  the  factory,  but 
more  efficiently.  OPT  focuses  on  the  critical  resources, 
the  ones  that  really  control  output.  By  directing 
management  to  focus  its  energies  on  bottlenecks,  it 
succeeds  in  maximizing  throughput  and  making  more  money. 
Furthermore,  OPT's  unique  scheduling  system  makes  it  a 
powerful  simulation  tool  that  permits  the  user  the  luxury 
of  measuring  the  effects  of  planned  improvements  before  one 
dollar  is  spent  on  them.  This  chapter  will  discuss  the 
conceptual  development  of  the  theory  and  the  operational 
rules  based   on  it.   These  rules  will  then  be  emphasized 
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with  an   interactive   computer  program  which  can  accept 
user/management  decisions  and  act  accordingly. 

2.2  OPT  Scheduling  Rules 

The  way  OPT  looks  at  manufacturing  is  based  on  the 
following  ten  scheduling  rules  [Fox,  1983]: 

(1)  Balance  flow,  not  capacity. 

(2)  The   level   of  utilization  of   a   non-bottleneck   is 
determined  not  by  its  own  potential,  but  by  some  other 
constraint  in  the  system. 

(3)  Utilization  and  activation  of  a   resource   are  not 
synonymous . 

(4)  An  hour  lost  at  a  bottleneck  is  an  hour  lost  for  the 
total  system. 

(5)  An  hour  saved  at  a  non-bottleneck  is  just  a  mirage. 

(6)  Bottlenecks  govern  both  throughput  and  inventory  in 
the  system. 

(7)  The  transfer  batch  may  not,  and  many  times  should  not, 
be  equal  to  the  process  batch. 

(8)  The  process  batch  should  be  variable,  not  fixed. 

(9)  Schedules  should  be  established  by  looking  at  all  of 
the  constraints  simultaneously.  Lead  times  are  the 
result  of  a  schedule  and  cannot  be  predetermined. 

(10)  The   sura  of  the  local  optimums  is  not   equal   to   the 
global  optimum. 

The  rules  1,  and  6  through  10  could  be  illustrated  on 
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our  fully  developed  simulator  by  some  standard  problems. 
Actually  these  may  also  become  obvious  when  one  keeps  using 
this  simulator  more  often. 

In  addition,  there  are  three  criteria  that  the 
schedules  must  meet ! 

1.  Move  the  organization  toward  the   goal    of 
manufacturing  :  MAKING  MONEY 

2.  Be  realistic 

3.  Be  immune  to  disruption 

2.3   How  OPT  works? 

This  section  of  the  chapter  will  show  how  the  OPT 
system  works  and  utilizes  these  rules  [Fox,  1984], 

The  first  step  is  to  construct  a  model  of  the 
manufacturing  facility  to  be  scheduled.  The  model  is 
essentially  a  network  of  how  the  various  manufacturing 
resources  (people,  machines,  tools,  etc.),  customer  orders, 
products  and  raw  materials  are  linked  together.  The 
creation  of  the  initial  model  of  the  manufacturing  facility 
is  accomplished  using  data  generally  available  on  a 
company's  computer  system.  Existing  data  files  containing 
bills  of  materials,  routings,  market  considerations  (sales 
forecasts  and  firm  orders),  inventories  and  work  center 
data  (setup  and  processing  times)  are  fed  into  the  OPT 
system. 

Once  this  model  has  been  constructed,  the  next  task  is 
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to  determine  where  the  constraints  or  bottlenecks  are  in 
the  system  [Meleton,  1986],  In  OPT  terminology,  any 
resource  whose  capacity  is  less  than  or  equal  to  market 
demands  is  called  a  bottleneck.  This  is  accomplished 
through  a  module  in  OPT  called  "Serve".  "Serve"  is  OPT's 
enhanced  version  of  an  MRP  system.  The  product  network  of 
OPT  is  combined  with  what  is  in  essence  the  MPS,  and  this 
is  fed  to  a  routine  that  identifies  the  bottleneck 
resources;  basically,  this  is  a  rough  cut  capacity  planning 
routine  that  achieves  many  of  the  benefits  of  capacity 
requirements  planning.  A  pass  through  this  network  gives  a 
capacity  estimation  for  each  work  center,  and  a  gross  to 
net  calculation  can  be  made  at  each  part  of  the  routing 
step  to  see  if  further  capacities  are  required.  The 
resultant  capacity  needs,  when  divided  by  the  number  of 
weeks  in  the  planning  horizon,  give  the  average  capacity 
requirements  for  each  resource.  When  this  is  divided  by 
the  resource  capacity,  the  result  is  average  expected  load. 
The  average  loads  are  then  sorted  in  descending  order,  and 
the  most  heavily  loaded  are  studied.  Are  the  data  correct? 
Are  the  time  standards  accurate?  Can  the  capacity  be 
easily  increased?  Can  an  alternate  routing  for  some  items 
be  used?  Any  changes  based  on  these  questions  dictate 
another  run  to  find  the  true  bottleneck  resources.  This 
way  of  identifying  the  bottlenecks  is  called  infinite 
loading. 
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Once  a  bottleneck  is  identified,  the  model  is  divided 
into  two  parts:  the  critical  resources  and  the  non-critical 
resources.  The  critical  resource  portion  is  our  bottleneck 
operation.  This  dividing  of  the  model  is  done  by  another 
module  in  the  OPT  software  called  "Split".  The  critical 
resource  portion  of  the  model  will  be  scheduled  using  a 
module  called  the  "Brain  of  OPT".  The  "Brain  of  OPT"  not 
only  schedules  production  but  also  determines  the  transfer 
batch  and  process  batch  sizes  at  each  operation.  It 
attempts  to  maximize  the  throughput  at  the  bottleneck 
operation  while  at  the  same  time  maintaining  a  synchronous 
flow  of  parts  to  assure  the  correct  mix  of  parts  is  being 
produced. 

We  can  see  that  OPT  clearly  meets  our  three  criteria 
for  correct  schedules : 

*  Meeting  our  goals  of  making  money:  the  OPT  schedules 
generate  the  maximum  throughput  with  the  least 
inventory  for  a  given  set  of  operating  expenses . 

*  Realism:  detailed  schedules  are  generated  that  can 
be  analyzed  by  first  line  supervision  to  assure  they 
are  doable. 

*  Immune  to  Disruption:   Safety   stock  and   safety 
capacity  are  employed  at  strategic  points  to  prevent 
any   disruption   in  the  throughput   of   the   total 
system. 
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2.4  OPT  -  A  Productivity  Improvement  Tool 

If  OPT  is  able  to  generate  schedules  that  meet  the 
three  criteria  of  good  scheduling,  then  it  should  also  be  a 
powerful  simulation  or  "what  if"  tool.  It  is  useful  to 
think  of  OPT  as  a  system  that  produces  the  best  practical 
schedule  to  meet  marketing  demands  under  these  three  types 
of  constraints: 

*  Materials:  What  is  our  current  inventory  position  on 
raw  materials? 

*  Capacity:  Capacity  is  a  variable  that  can  be  changed 
but  at  any  point  in  time  our  capacity  is  fixed. 

*  Policy:   These  constraints  can  be  thought   of   as 
management  parameters  or  knobs  on  the  OPT  tool   to 
meet  their  specific  needs. 

2.5  Dse  of  OPT  in  controlling  the  Simulator 

It  is  suggested  that  the  user  understand  the 
philosophy  of  OPT  before  using  the  simulator.  Judicious 
use  of  these  rules  in  controlling  the  flow  of  the 
simulation  will  help  the  user  understand  the  dynamics  of 
production  control  and  allow  him  to  realize  the  benefits  of 
using  these  rules  to  achieve  the  goal  of  a  manufacturing 
organization.  The  organization  of  the  simulator  is 
described  in  Chapter  3  of  this  study.  A  comprehensive 
user's  manual  for  the  simulator  follows  in  Chapter  4. 
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CHAPTER  3 

ORGANIZATION  OF  THE  SIMULATOR 

3 . 1  Introduction 

This  chapter  will  discuss  the  basic  data  structures 
that  have  been  changed  since  the  development  of  the  last 
simulator.  It  will  also  give  a  brief  insight  into  the 
organization  of  the  program.  Since  this  work  is  an 
extension  to  the  previous  study,  for  a  better  understanding 
of  the  program  and  for  proper  definitions,  the  previous 
work  needs  to  be  referred  to  quite  often. 

Certain  changes,  though  not  directly  related  to  the 
objectives  of  this  study  as  mentioned  in  Chapter  1,  were  of 
significant  importance  to  the  overall  development  of  the 
simulator.  Sections  3.2  and  3.7  cover  these  changes  in 
detail . 

3 . 2  Calendar  Data  Structure 

The  calendar  is  an  important  data  structure  and  forms 
the  backbone  for  the  program.  It  contains  all  the 
scheduled  future  event  types.  The  first  field  in  the 
calendar  is  the  modifier  which  decides  if  that  particular 
event  is  mandatory.  The  critical  modification  has  been  in 
giving  a  symbol  to  the  REG_MODIFIER.  The  symbol  is  '@' 
instead  of  a  <space>  which  helps  in  recognizing  the  end  of 
file  for  reading  in  the  starting  conditions  other  than  the 
empty  shop,  as  explained  later  in  section  3.5.2. 
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3.3  Other  Modified  Data  Structure  in  the  Program 

In  addition  to  the  calendar  data  structure  discussed 
earlier,  the  program  uses  the  following  modified  data 
structure. 

3.3.1   Product  Structure 

The  structure  for  a  product  is  defined  as  follows  in 
'opt.h' : 

Before  Modification: 
Jfdefine  PRODUCT  struct  products 

PRODUCT { 

int  prod_no;  /*  Product  number  */ 

int  price;  /*  Product  price  */ 

int  qnty_produced;  /*  Quantity  produced  */ 

int  row;  /*  Screen  row  */ 

int  col;  /*  Screen  column  */ 

PRODUCT  *next;  /*  Next  product  */ 
}; 

After  Modification: 

ttdefine  PRODUCT  struct  products 

PRODUCT { 

int  prod_no;  /*  Product  number  */ 

int  price;  /*  Product  price  */ 

int  qnty_produced;  /*  Quantity  produced  */ 

int  limit;  /*  Master  Production  Schedule  or 

quantity  sold  per  week  */ 

int  row;  /*  Screen  row  */ 

int  col;  /*  Screen  column  */ 

PRODUCT  *next;  /*  Next  product  */ 

The  variable  'limit'  contains  the  scheduled  quantity 
that  can  be  sold  per  week.  When  the  simulation  is  in 
progress,   this   information  is  displayed  in  the  overview 
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window  at  the  location  "Products  to  be  sold" . 

3.4  Flexibility  in  Scheduling 

The  way  that  production  is  scheduled  can  be  critical 
to  the  profitability  and  survival  of  manufacturing 
companies.  The  OPT  way  of  thinking  tells  us  that  we  must 
look  at  all  the  constraints  simultaneously.  If  a  machine 
or  raw  material  is  not  a  constraint,  then  it  is  not 
important  in  setting  the  master  schedule.  There  are  a 
number  of  other  different  constraints  that  need  to  be 
considered.  The  most  obvious  one  is  the  market 
requirements.  There  are  clearly  a  limit  on  what  we  need  to 
produce  and  when  we  produce  it.  The  original  simulator 
worked  on  the  assumption  that  whatever  was  produced  could 
be  sold  immediately.  But  in  reality  this  is  not  true.  So 
the  following  change  was  made  in  the  modified  simulator. 

3.4.1   Master  Production  Schedule 

The  simulation  begins  after  reading  the  starting 
conditions  from  an  input  file.  At  this  stage  the  limit  in 
the  product  structure  represents  the  master  production 
schedule,  the  quantity  which  can  be  sold  per  week.  This 
limit  is  automatically  reset  at  the  end  of  the  week.  This 
modification  is  done  in  the  function  called 
"reset_quantity"  . 
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3.4.2  Purchase_Rawmat 

This  procedure  purchases  raw  material  ' raw_mat_no ' 
(event  variable  1)  for  part_type  (event  variable  2)  in 
'qnty'  (event  variable  3).  Purchase  events  are  scheduled 
by  a  function  called  "check_inventory"  if  the  user  chooses 
automatic  purchase.  In  such  a  case  the  event  is  scheduled 
at  the  next  available  minute.  In  the  modified  version  of 
the  simulator,  when  the  user  wants  to  purchase  some  raw 
material,  he  needs  to  specify  an  event  time  in  the  form  of 
week,  day,  hour  and  minute.  This  information  is  used  to 
convert  the  time  into  minutes  by  the  function 
"string_to_time" .  At  this  point,  the  time  was  checked  for 
input  validation.  Only  when  the  input  time  was  greater 
than  the  present  time  of  the  simulation,  did  the  procedure 
execute.  In  this  way  the  user  can  control  the  flexibility 
in  scheduling  an  event.  This  change  has  been  incorporated 
in  the  function  called  "user_purchase" . 

3.4.3  Setup_machine 

This  procedure  will  set  up  the  machine  specified  by 
'mach_no'  (event  variable  1)  in  department  'dept_no'  (event 
variable  2)  for  part  type  'repeat,  part_type'  (event 
variables  3  &  4).  In  the  manual  operation,  even  this  event 
can  have  flexible  scheduling  by  specifying  the  event  time 
in  the  form  of  week,  day,  hour  and  minute.  This  change  has 
been  incorporated  in  the  function  called  "change". 
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At  the  later  stage  of  the  program  development,  a 
serious  bug  was  detected  in  this  routine.  First  of  all 
this  procedure  was  accepting  wrong  input,  i.e.  even  though 
certain  part  types  do  not  go  through  a  particular 
department,  when  the  user  by  mistake  scheduled  to  set  up  a 
machine  for  any  of  those  part  types,  the  procedure  did  so. 
The  program  detected  wrong  part  information  immediately  at 
the  next  minute  and  terminated  the  simulation  abruptly. 
The  whole  problem  was  in  the  way  these  part  types  were 
compared  with  the  existing  part  types  in  the  part 
information  data  structure.  Actually  they  are  represented 
in  the  program  by  character  variables,  but  the  original 
procedure  was  doing  a  string  comparison  on  them.  This  may 
appear  to  be  a  trivial  problem  on  paper,  but  avoiding  this 
by  proper  modification,  did  set  the  setup  procedure  right. 

3.4.4   Load_machine 

The   load  event  can  take  one  of  the  two   forms   shown 
below: 
Load  'mach_no'  in  'dept_no'  setup  for  'repeat,  part_type' 

(or) 
Load   free  machine   in   'dept_no'   setup   for    'repeat, 
part_type ' 

Originally  in  the  second  case,  the  function  called 
"check_free_machs"  was  used  to  schedule  the  load  events  in 
automatic  mode.   But  there  was  a  bug  in  the   routine.    It 
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was  just  checking  for  only  one  machine  in  a  department. 
Let  me  give  an  example .  The  load  events  are  scheduled 
basically  when  a  machine  has  been  set  up  for  a  particular 
part  type  and  is  sitting  idle  and  when  there  is  at  least 
one  part  in  the  "pre"  area.  The  procedure  just  checked  for 
the  first  machine  in  each  department.  This  was  corrected 
by  looping  around  all  the  machines  in  the  department.  In 
addition,  the  function  called  "user_load"  has  been  modified 
to  incorporate  the  flexible  scheduling. 

3.4.5  Move_part 

The  move  event  is  of  the  form: 

Move  'repeat,  part_type'  from  'dept_no'  in  'qnty' 
The  destination  for  the  part  is  implicitly  mentioned. 
In  the  original  simulator  only  the  automatic  move  was 
working  fine.  There  was  no  interaction  for  the  user  to 
move  a  part  in  the  manual  mode.  This  has  been  provided  in 
the  function  called  "user_move".  The  procedure  finds  the 
destination  for  the  part  by  searching  the  routing  matrix. 
If  the  destination  is  another  department,  it  moves  the  part 
to  that  department  and  updates  the  expense  by  adding 
material  handling  cost  to  it.  If  the  destination  is 
stores,  which  is  represented  as  the  Oth  department  in  the 
routing  matrix  as  explained  later  in  Chapter  5,  it  moves 
the  part  to  the  stores  and  updates  the  cash  by  adding  the 
product  price  to   it  and  updates  expense  by  adding  the 
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material  handling  cost  to  it.  But  at  the  same  time,  the 
part  cannot  be  moved  if  we  exceed  the  limit  as  dictated  by 
the  master  production  schedule.  In  that  case  the  material 
remains  at  the  "post"  area  of  the  last  department  and  the 
on_hand  inventory  is  updated.  The  on_hand  inventory  is 
explained  in  the  next  section. 

3.4.6   Unload  jnachine 

In  the  original  work,  since  there  was  no  user  move, 
this  procedure  unload_machine  automatically  generated  a 
move  event  in  the  next  available  minute.  But  when  the 
simulation  was  running  with  manual  option  and  with  the 
user_move  feature  provided,  such  an  event  generation  was  no 
longer  justified.  Also  once  the  part  is  processed  through 
the  last  department,  it  had  to  be  moved  either  to  finished 
goods  inventory  (i.e.  "on  hand")  or  to  the  area  where  it 
can  be  sold  directly.  These  modifications  were 
incorporated  in  the  function  called  "unload_machine" . 

3.5  Statistics 

The  statistics  window  consists  of  three  reports: 
sales,  financial  and  activation.  A  sample  layout  of  the 
statistics  window  is  shown  in  Figure  3.1. 

The  sales  report  shows  the  number  of  pieces  of  each 
part  produced  from  the  beginning  of  the  simulation  to  any 
moment.  It  also  shows  the  on_hand  quantity  for  each 
product  type.    When  the  parts  are  being  produced  and  we 
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Figure   3.1      Sample   layout  of   the   Statistics   Window 
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exceed  the  quantity  that  could  be  sold  per  week,  the 
on_hand  or  the  finished  goods  inventory  keeps  building  up. 
This  is  a  new  feature  which  has  been  added  to  the 
simulator.  The  functions  "init_on_hand"  and 
"update_on_hand"  do  this  job  for  the  sales  report.  Also 
the  sales  report  shows  the  Work_in_process  (WIP)  inventory 
for  each  product  type.  The  WIP  is  calculated  by 
subtracting  the  on_hand  inventory  from  the  value  obtained 
by  adding  up  the  quantity  from  both  "pre"  and  "post"  areas 
of  all  the  departments  for  each  part  type.  The  function 
"update_stat_inv_info"  does  this  job  for  the  statistics 
window. 

The  financial  report  consists  of  starting  cash,  cash 
now,  raw  material  expenses,  material  handling  expenses, 
other  operational  expenses,  work  in  process  value,  revenue 
from  sales,  and  net  cash  flow. 

The   starting  cash  is  recorded  to  be  the  cash  now  at 

the  beginning  of  each  week.   The  cash  now  reflects  the  cash 

on  hand  at  any  moment.   Raw  material  expense  is   calculated 

and   updated  by   "purchase_rawmat"   function.     Material 

handling  expense  is  updated  by  the  "move_part"   procedure. 

The  work   in  process  value  is  calculated   and  updated  by 

"update_inv_f inance"   procedure.    The   formula   used    for 

calculating  WIP  is: 

WIP  value  =  summation  of  ( inventory [i] [ j]  *  (raw_cost[i]  + 
j  *  (prod_cost[i]  -  raw_cost [i] )/no_of_opns[i] ) 
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for   j  =  1  to  it  of  operations,  and 

for   i  =  1  to  it  of  part  types,  where 

inventory[i] [ j]  =  sum  of  pre-  and  post-  areas  at  department 

j  for  part  type  i; 
raw_cost[i]  -   raw  material  cost  for  part  type  i; 
prod_cost[i]  =  product  price  for  part  type  i;  and 
no_of _opns [ i ]  =  total  number  of  operations  for  part  type  i. 

Other  operational  expense  and  net  cash  flow  are 
calculated  at  the  end  of  each  week. 

The  activation  report  shows  the  percentage  of  total 
time  spent  in  setup,  production,  and  idle  states.  The 
event  procedures  which  change  the  state  of  the  machines- 
namely  setup,  load,  and  unload-  mark  the  time  of  the  state 
change  and  update  the  appropriate  variable  'time_idle', 
1 time_setup' ,  or  'time_busy'  according  to  what  the  machine 
was  before  the  state  change. 

3.6  Recording  Simulation  State 
3.6.1   Introduction 

The  simulation  is  started  from  an  input  file  which  has 
values  for  all  the  variables  which  define  the  problem. 
This  is  basically  simulating  an  empty  shop  situation.  But 
if  one  can  read  in  a  starting  condition,  other  than  that  of 
the  empty  shop,  other  more  interesting  problems  may  be 
investigated.  It  would  also  be  an  invaluable  addition  if 
the  user  is  able  to  save  the  calendar  and  other  related 
simulation  data  on  the  disk  and  continue  from  that  point  at 
another  time.  This  would  save  a  lot  of  time  if  the  user 
wants  to  run  the  same  problem  again.   Another   reason  why 
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the  user  might  want  to  save  the  calendar  at  any  time  would 
be  to  try  two  different  alternatives  from  that  particular 
point  and  evaluate  them  by  observing  the  system 
performance . 

Providing  such  a  facility  in  the  simulator  has  been  a 
major  task  for  my  research.  The  next  two  sections  explain 
in  detail  on  this  feature. 

3.6.2  Writing  Simulation  State 

At  any  point  of  the  simulation,  writing  the  simulation 
state  to  a  file  is  achieved  through  a  two  step  menu 
process.  The  'Schedule'  option  from  the  overview  window 
menu  list  will  bring  up  the  user  scheduled  events  menu 
list.  Then  the  'Write'  option  from  this  menu  will  prompt 
for  a  filename  to  be  used  for  writing  to  the  disk.  The 
prompt  'finished  writing'  will  signify  the  end  of  saving 
the  simulation  state. 

The  most  important  variables  that  change  during  the 
course  of  the  simulation  are  the  global  variables.  Most  of 
these  define  the  initial  state  also.  So  these  variables 
are  written  first  to  the  file: 

'cash'  for  starting  cash; 

'expense'  for  all  raw  material  and  operating  expenses; 

'n_depts'  for  defining  the  number  of  departments; 

'n_ptypes'  for  defining  the  number  of  part  types; 

'max_opns'  for  defining  the  maximum  number  of 
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operations  for  any  part  type; 

'Routing  matrix'  to  designate  the  routes  for  each  part 
type; 

'Department  structure'  consisting  of  'dept_no', 
'nmachines',  ' nmach_in_use' ,  'row'  and  'col'; 
'Machine   structure  in  each  department'   representing 
the   information   'row' ,  'col' ,   'mach_no' ,   'repeat' , 
'setup  for',   'mstate',   ' user_stopped' , 
' state_change_time' ,  'idle',  'setup'  and  'busy'; 
'Part    information   in   each   department'    defining 
'dept_no',  'row',  'col',  'repeat',  'ptype', 
'ptype_in_char' ,  'pre'  and  'post'  quantity; 
'Raw  material   structure'   containing    ' raw_mat_no ' , 
'cost',  'row'  and  'col'; 

'Product   structure'   containing   'prod_no',   'price', 
'qnty_produced' ,  'limit',  'row'  and  'col'; 
'Setup  times'  for  the  n_ptypes  in  n_depts; 
'Machining  times'  for  the  n_ptypes  in  n_depts; 
'Parttype  :  raw  material  relationship'; 
'time_now'   for  present  simulation  time  in  minutes   in 
the  form  of  week_now,  day_now,  hr_now  and  min_now; 
' auto_purchase ' ,  'auto_setup'  and  'auto_move'  for  true 
or  false; 

minimum  inventory,  purchase  lot-size,  transfer  batch, 
material  handling  cost  and  other  operational   expenses 
these  are  important  variables  because  they  can  be   changed 
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later  in  the  program. 

'Statistics  structure'; 

And  finally  in  the  end  the  calendar  listing  of  the 
events .  A  lot  of  care  has  been  taken  in  writing  this 
simulation  state  with  well  formatted  statements  so  that  the 
user  can  understand  them. 

3.6.3  Reading  Simulation  State 

Once  a  simulation  state  has  been  written  to  a  file  on 
the  disk,  we  now  have  two  ways  of  starting  the  simulation 
next  time.  The  input  file  'in.sim'  starts  the  simulation 
from  an  empty  shop  situation.  Any  file  with  '.out'  as  an 
extension  which  has  been  written  previously  to  the  disk, 
can  be  used  to  start  the  simulation  from  other  than  the 
empty  shop  condition.  The  sequence  in  which  the  program 
reads  the  variables  can  be  understood  by  seeing  the  listing 
for  the  function  ' read_sim_state'  in  the  file  'input. c'. 
The  strings  describing  the  corresponding  numbers  are 
written  as  a  guide  for  the  user  and  are  omitted  by  the 
program  during  input . 

The  very  important  variables  that  decide  the  length  of 
the  department  and  machine  structure  are  read  through  the 
number  of  departments ,  number  of  part  types  and  maximum 
number  of  operations .  The  machine  structures  and  the 
department  structures  can  be  initialized  without  any 
problem.    But  once  it  comes  to  the  part  information  data, 
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there  is  no  idea  as  to  how  many  part  types  go  through  each 
department.  So  scanning  the  input  file  for  part 
information  had  to  be  handled  delicately  and  is  achieved  by 
reading  in  the  'dept_no'  field  first. 

Similarly  the  reliability  of  the  calendar  data 
structure  is  very  important  as  it  is  the  calendar 
containing  the  future  event  list  that  decides  the  flow  of 
simulation.  The  calendar  list  is  read  in  the  end  since 
there  is  no  prior  knowledge  of  how  many  events  may  be  in 
the  calendar  at  any  one  time.  The  modifier  field  is 
scanned  first  and  the  calendar  structure  is  continually 
initialized  till  the  end  of  file  condition  terminates  the 
input.  If  the  modifier  had  been  <space>  instead  of  any 
character  then  it  would  be  difficult  to  recognize  the  end 
of  file.  This  is  the  explanation  for  the  reasoning  in 
section  3.2. 

3.7  Memory  Model  of  the  Simulator 

A  greater  control  can  be  gained  over  how  the  program 
uses  memory  by  specifying  the  memory  model  for  the  program. 
The  original  simulator  was  compiled  in  the  small  memory 
model.  The  small-model  option  tells  the  compiler  to  create 
a  program  that  occupies  the  two  default  segments:  one  for 
code  and  one  for  data.  Small-model  programs  are  typically 
C  programs  that  are  short  or  have  a  limited  purpose.  Since 
code   and  data  for  these  programs  are  each  limited  to   64K, 
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the  total  size  of  a  small  model  program  can  never  exceed 
128K.   Most  programs  fit  easily  into  this  model. 

With  the  extensions  that  were  incorporated  in  the 
simulator,  the  program  now  has  more  than  64K  of  code,  so  it 
was  switched  from  small  to  medium-model  option  to  compile 
the  program.  The  medium-model  option  provides  a  single 
segment  for  program  data,  and  multiple  segments  for  program 
code.   Each  source  module  is  given  its  own  code  segment. 

Medium-model  programs  are  typically  C  programs  that 
have  a  large  number  of  program  statements  (more  than  64K  of 
code),  but  relatively  small  amount  of  data  (less  than  64K) . 
Program  code  can  occupy  any  amount  of  space  and  is  given  as 
many  segments  as  needed;  total  program  data  cannot  be 
greater  than  64K.  The  medium  model  provides  a  useful  trade 
off  between  speed  and  space,  since  most  programs  refer  more 
frequently  to  data  items  than  to  code  as  we  do. 

3 . 8   Summary  of  the  Modified  Changes 

C  is  used  to  program  our  simulator.  It  is  a  general 
purpose  programming  language  which  features  economy  of 
expression,  modern  control  flow  and  data  structures  and  a 
rich  set  of  operators.  It  also  provides  maximum  support 
for  modular  programming,  which  speeds  program  development 
and  simplifies  maintenance,  3ince  each  module  can  be 
designed  and  tested  independently.  A  modular  program  is 
one  that  is  constructed  from  a  set  of   small,   independent 
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functions,  each  of  which  does  a  single  clearly  defined  job. 
The  program  changes  which  have  been  added  to  this 
simulator  are  very  modular  and  can  be  used   for   further 
program  development.   These  changes  are  of  two  types: 
(i)   modifications  to  the  existing  functions,  and 
(ii)   addition  of  new  functions. 
The  first,  group  of  changes  is: 

*  'user_schedule'  in  file  calendar. c 

*  'change'  in  file  calendar. c 

*  'read_data'  in  file  input. c 

*  'main'  in  file  opt.c 

*  'move_part'  in  file  process. c 

*  'unload_machine'  in  file  process. c 

*  'update_prod_info'  in  file  process. c 

*  ' check_f ree_machines '  in  file  process. c 

*  'set_screen'  in  file  setscr.c 

*  'draw_menu'  in  file  setscr.c 

*  'draw_products'  in  file  setscr.c 

*  'init_stat'  in  file  stat.c 

*  'draw_stat_screen'  in  file  stat.c 

*  ' string_to_time'  in  file  s_conv.c 

*  'user_purchase'  in  file  utils.c 

*  'user_setup'  in  file  utils.c 

*  'zoom'  in  file  zoom.c 
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The  new  functions  added  are: 

*  'write_cal_list'  in  file  calendar. c 

(Function  to  write  the  simulation  state  of   the   calendar 
list) 

*  ' read_cal_list'  in  file  calendar. c 

(Function  to  read  the  new  simulation  state  of  the  calendar 
list) 

*  ' read_sim_state'  in  file  input. c 

(Function  to  read  previously  saved  simulation   state   data 
from  the  file  specified  by  the  user) 

*  '  update_inv_f inance'  in  file  process. c 

(Function  to   update  the  inventory  costs   in   statistics 
window) 

*  ' init_on_hand '  in  file  process. c 

(Function  to  initialize  the  on-hand  inventory  in  statistics 
window) 

*  ' update_on_hand '  in  file  process. c 

(Function  to  update  the  on-hand  or  finished  goods  inventory 
in  statistics  window) 

*  'update_stat_inv_info'  in  file  process. c 

(Function  to  update  inventory  information  on  the  statistics 
window) 

*  ' reset_quantity'  in  file  setscr.c 

(Function  to  reset  the  quantity  produced  for  the  next  week) 

*  'draw_initial_scr'  in  file  setscr.c 

(Function  to  paint  the  initial  screens  when  started  from  a 
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saved  simulation  state) 

*  'write_sim_state'  in  file  utils.c 

(Function  to  get  the  user  input   for  writing   simulation 
state  to  a  file) 

*  'user_move'  in  file  utils.c 

(Function  to  get  the  user  input  for  scheduling  move  events) 
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CHAPTER  4 
USER'S  MANUAL 

4 . 1  Introduction 

This  user's  manual  will  give  some  insight  into  the 
features  of  the  simulator.  The  manual  also  features  a  menu 
map  to  help  in  efficient  use  of  the  simulator's 
capabilities. 

4 . 2  Hardware  Requirements 

The  simulator  is  suitable  for  use  on  IBM-PC  and 
compatibles  with  a  Color  Graphics  Adapter  (CGA)  or  an 
Enhanced  Graphics  Adapter  (EGA).  The  executable  version  of 
the  simulator  is  on  a  5  1/4"  double  sided  double  density 
floppy  disk  and  hence  requires  a  floppy  disk  drive. 

4.3  Getting  Started 

The  simulator  is  started  by  inserting  the  disk  in  a 
disk  drive  and  typing  'OPT'  followed  by  <Enter> .  The 
program  checks  the  hardware  for  the  availability  of 
Color/Graphics  adapter.  It  then  prompts  for  two  options: 
whether  to  start  the  simulation  from  the  beginning  or  to 
start  from  a  previously  saved  simulation  state.  Once  the 
option  is  given,  it  prompts  for  the  input  filename.  A 
sample  input  file  'in.sim'  is  provided  on  the  diskette  for 
first  option.  If  the  user  selects  the  second  option,  then 
he   can   type  in  any  filename  which  has   '.out'   extension. 
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The  next  two  sections  cover  these  two  options  in  detail . 

4.3.1  Initial  Data  Input  Through  Inflle 

The  input  file  'in.sim'  is  listed  in  Appendix  B.  It 
is  also  available  on  the  disk  with  an  executable  version  of 
the  simulator.  The  simulator  can  accept  any  file  as  input 
as  long  as  it  is  in  a  specific  format  which  can  be  read  by 
the  program  to  understand  the  input.  It  is  suggested  that 
the  user  make  a  copy  of  'in.sim'  before  attempting  to 
modify  it.  It  can  be  edited  by  any  word  processor  in 
nondocument  mode.  The  strings  describing  the  corresponding 
numbers  are  in  the  input  file  only  as  a  guide  for  the  user 
and  are  omitted  by  the  program  during  input.  The  sequence 
in  which  the  program  reads  the  variables  can  be  understood 
by  seeing  the  listing  for  the  function  'read_data'  in  the 
file  input. c  in  Appendix  A.  Although  the  strings  are 
omitted  by  the  program,  they  cannot  be  removed  nor  can  more 
strings  be  added  in  the  input  file.  The  variables  listed 
in  the  input  file  in.sim  also  form  a  subset  of  those  listed 
in  any  .out  files.  So  in  the  next  section  a  detailed 
explanation  of  these  variables  from  a  file  with  .out 
extension  are  covered  for  a  better  understanding  to  the 
user. 

4.3.2  Previously  Saved  Simulation  Data  Input 

The   input  file  'final. out'  is  listed  in  Appendix  B. 
The   sequence  in  which  the  program  reads  the  variables   can 
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be  understood  by  seeing  the  listing  for  the  function 
'write_sim_state'  in  the  file  input. c  in  Appendix  A.  A 
brief  explanation  for  each  of  these  variables  follows: 

4.3.2.1  Global  Variables 

cash:   cash  now  available 

expense :   expenses  incurred 

n_depts :   number  of  departments 

n_ptypes :   number  of  part  types 

max_ops :   maximum  number  of  processing  stations  or 

departments 
pace:   the  pace  of  the  simulation 

All   these  are  global   variables.    They   should  be 

initialized  for  the  program  to  run  properly. 

4.3.2.2  Routing 

A  typical  routing  matrix  has  the  form: 

13  5  2  0  0  0 

3  4  5  2  12  0 

15  2  5  3  4  0 

13  5  4  0  0  0 

2  5  4  3  12  0 

The  five  rows  relate  to  the  5  part  types  and  the  numbers  in 

the   first   6   columns   represent   department   numbers   or 

processing  stations.   The  additional  column  in  the  matrix 

with  all  0's  signify  the  completion  of  the  processing  when 

the  part  types  are  ready  to  be  sold  or  to  be  placed   at 

finished  goods  inventory. 

4.3.2.3  More  Global  Variables 

routing_row:   screen  row  position  for  routing  display 
routing_col:   screen  column  position  for  routing  display 
raw_mat-row:   screen  row  position  for  the  raw  material 
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display 
raw_raat_col:   screen  column  position  for  the  raw  material 

display 
prod_row:   screen  row  position  for  the  product  display 
prod_col:   screen  column  position  for  the  product  display 
n_raw_mat:   number  of  raw  materials 
n_products:   number  of  products 


4.3.2.4   Department  Structure 

dept_no :   department  number 

nmachines :   number  of  machines 

nmach_in_use:   number  of  machines  in  use 

row:   physical  screen  row  location  for  the  department 

col:   physical  screen  column  location  for  the  department 


4.3.2.5   Machine  Structure 

row:   screen  row  location  for  the  machine 
col:   screen  column  location  for  the  machine 
mach_no :   machine  number 
repeat:   repeat  for  part  type 
setup_for:   part  type  setup  for 
mstate:   machine  state 

There  are  three  states  for  any  machine.  They  are: 

State  value  of  'mstate' 

Idle  0 

Setup  1 

Busy  2 

usr_stopped:  has  any  event  been  stopped  by  the  user 
value  of  0  means  False 
value  of  1  means  True 

st_chg_time:  contains  the  marked  time  of  state  change  for 
that  particular  machine 

idle:  contains  the  cumulative  times  from  the  beginning 
setup:  of  the  simulation  in  these  respective  states  for 
busy:     the  machine  which  changed  state 
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4.3.2.6   Part  Informati  on  Structure 

dept_no:   department  number 

row:   screen  row  location  for  part  type 

col:   screen  column  location  for  part  type 

repeat:   repeat  for  part  type 

ptype:   part  types 

ptype_in_char :   part  type  in  character 

For  part  types  1,  2,  3,  4  and  5,  the   corresponding  part 
types  in  character  are  A,  B,  C,  D  and  E. 

pre:   contents  of  the  "pre"  area 
post:   contents  of  the  "post"  area 

The   department  data  structure  in  itself  contains   the 

machine   structure  as  well  as  part   information   structure. 

Figure  4.1   gives   the  overview  of   the   department   data 

structure. 


4,3-2.7   Saw.  Material  Structure 

raw_mat_no:   raw  material  number 
cost:   raw  material  cost 
row:   screen  row 
col:   screen  column 


4-3.2,8   Product  Structure 

prod_no:   product  number 
price:   product  price 
qnty_produced:   quantity  produced 
limit:   master  production  schedule 
row:   screen  row 
col:   screen  column 


repeat =  0 

240   120 

320 

160 
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Fiaure  4.1  Overvian  of   the  Departient  Data  Structure 
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Setup  times  are  represented  by  a  2-Dimensional  5x5 
matrix.  Rows  signify  departments  and  columns  are  the  part 
types . 


repe 

at=  1 

0 

0 

0 

0 

0 

0 

125 

0 

0 

165 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

115 

0 

100 

0 

0 

If  any  of  the  part  types  has  a  routing  that  goes 
through  a  department  twice,  then  it  is  supposed  to  have  a 
repeat. 

4.3.2.10  Machining  Times 

A  similar  kind  of  explanation  holds  true  for  machining 
times  as  for  setup  times. 

4.3.2.11  Part  Type-Raw  Material  Relationship 

This  information  represents  a  one-to-one  relation 
between  part  type  and  raw  material . 

4.3.2.12  Some  More  Global  Variables 

time_now:  simulation  time  in  overall  minutes 
week_now:  week  of  simulation 
day_now:  day  of  simulation 
hr_now:  hour  of  simulation 
min_now:  minute  of  simulation 

deleted:   Is  an  event  deleted  by  the  user? 
0  for  No  and  1  for  Yes 

user_specif ied:   Has  an  event  been  specified  by  the  user? 
0  for  No  and  1  for  Yes 

auto_purchase:   Is  purchase  automatic? 
0  for  No  and  1  for  Yes 
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auto_setup:   Is  setup  automatic? 

0  for  No  and  1  for  Yes 

auto_raove:   Is  move  transfer  automatic? 
0  for  No  and  1  for  Yes 

zoom_row:  screen  row  for  zooming  a  department 
zoom_col :  screen  column  for  zooming  a  department 

The   following  global  variables  can  be  changed  during 

the  simulation  also: 

min_inv:  minimum  inventory  before  automatic  purchase  is 

done 
purchase_lot_size:  default  automatic  purchase  lot  size 
transfer_batch:  transfer  batch  quantity  for  material 

handling 
mat_handling_cost:  material  handling  cost  of  a  transfer 

batch 
other_op_expense:  other  weekly  operating  expenditure 

4-3.g.t3   Statistics  Structure 

row:  screen  row  for  finance 
col:   screen  column  for  finance 
start_cash:   starting  cash  for  a  week 
cash_now:   cash  at  this  moment 
sales_revenue:   revenue  from  sales 
raw_mat_exp:   total  raw  material  expenses 
mat_hand_exp :   total  material  handling  expenses 
other_op_exp:   total  operating  expenses 
net_cash_f low-   cash  flow  for  previous  week 

4-3-3.14   Additional  Global  Variables 

The   following   global   variables   represent   the 

information  about  the  first  event  in  the  calendar  list. 

event_time:  time  of  the  event 
week:  week  of  the  event 
day:  day  of  the  event 
hr:  hour  of  the  event 
min:  minute  of  the  event 

The  event  variables  event_varl ,  event_var2,  event_var3 

and  event_var4   are  explained  in   section   4.3.2.15.    The 
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event_type   and  the  modifier  are  also   explained   in  that 
section. 

4.3.2. 15   Calendar  Structure 

The  first  entry  in  the  calendar  structure,  'modifier', 
is  a  character  which  decides  if  that  particular  event  is 
mandatory.  If  the  event  is  mandatory,  it  cannot  be  deleted 
by  the  user  with  the  calendar  edit  function.  The  operation 
of  the  calendar  edit  function  is  described  in  section 
4.7.2.   A  summary  of  the  modifiers  follows: 

Modifier       Symbol  Comments 

CLOCK_MODIFIER       '$'  Mandatory 

UNLOAD_MODIFIER      '$'  Mandatory 

REG_MODIFIER         "»•  Can  be  deleted 

DELETED  '*•  Not  processed 

USER_SPECIFIED       '0'  Entered  by  the  user 

The  next  entry  'time'  is  the  event  time.  The 
variables  week,  day,  hrs  and  mins  which  are  the  next  four 
entries  in  the  structure  are  used  to  store  the  time  in 
terms  of  weeks,  days,  hours  and  minutes  respectively.  The 
next  field  in  the  calendar  structure  is  event_function_ptr 
which  is  merely  the  event  type.  There  are  six  different 
event  types  that  will  change  the  state  of  the  shop. 
Associated  with  these  event  types,  there  are  four  different 
event  variables  explained  below: 
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Event 

Event  Variables 

clock_tick 

a 
b 
c 

d 

dummy 
dummy 
dummy 
dummy 

purchase 

a 
b 
c 

d 

raw  material  number 
part  type 
quantity 
dummy 

setup 

a 
b 
c 

d 

machine  number 
department  number 
repeat 
part  type 

load 

a 
b 
c 

d 

machine  number 
department  number 
repeat 
part  type 

unload 

a 
b 
c 

d 

machine  number 
department  number 
dummy 
dummy 

move 

a 
b 
e: 
d 

repeat 
part  type 
department  number 
quantity 

4.4   Initial  Options 

The  initial  display  screen  consists  of  the  zoomed 
window  showing  the  first  department  and  the  variables  that 
can  be  changed  during  the  simulation.  Of  the  variables 
displayed  on  the  screen,  two  -  'hours  per  day'  and  'days 
per  week'  -  can  be  changed  only  before  starting  the 
simulation.  A  sample  layout  of  this  zoom  window  is  shown 
in  Figure  4.2. 

The  program  first  prompts  the  user  if  purchase  events 
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Figure  4.2   Sample  layout  of  the  Zoom  Windo 
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are  to  be  scheduled  automatically.  A  choice  of  'yes' 
automatically  replenishes  inventory  when  the  simulation  is 
in  progress.  A  choice  of  'no'  requires  the  user  to 
schedule  purchase  events . 

The  second  prompt  is  if  the  setups  are  to  be  done 
automatically.  If  the  user's  choice  is  'yes',  setups  are 
done  automatically.  If  the  choice  is  'no',  the  user  should 
schedule  setup  events  to  start  the  simulation. 

The  next  question  is  if  the  material  handling  should 
be  automatic.  If  the  user's  choice  is  'yes',  material 
handling  is  done  automatically  in  the  pre-specif ied 
transfer  batch  size.  If  the  choice  is  'no',  the  user 
should  schedule  move  events . 

The  above  modes  can  be  toggled  between  'Auto'  and 
'Manual'  by  the  ' change_mode '  function  which  is  invoked  by 
pressing  'ALT_M'  from  the  overview  window  any  time  during 
the  simulation. 

The  program  then  asks  the  user  if  any  of  the  variables 
displayed  on  the  screen  needs  change.  If  the  user  chooses 
to  alter  some  variables,  the  program  prompts  for  a  new 
value  for  the  selected  variable.  Instructions  on  how  to 
change  the  variables  are  provided  in  section  4.7.1.2.  The 
display  is  switched  to  the  overview  window  after  accepting 
the  changes . 

If  the  user  chooses  not  to  change  any  variables,  the 
display  is  immediately  switched  to  the  overview  window.   At 
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present  the  simulation  is  in  the  frozen  state.  When  the 
user  presses  'Resume',  the  simulation  clock  starts  and  if 
the  user  has  chosen  automatic  setup,  they  are  begun.  Since 
the  setup  event  is  the  primary  event  which  can  start  the 
simulation,  the  user  should  schedule  setup  events  to  start 
the  simulation  if  the  program  is  in  manual  setup  mode. 

4 . 5   The  Overview  Window 

This  window  has  information  about  all  the  departments 
and  the  routing  for  all  the  part  types  displayed.  It 
contains  information  about  the  raw  material  cost,  products 
to  be  sold  or  master  production  schedule,  cash  on  hand  and 
expense  from  the  beginning  of  the  current  week.  It 
features  a  clock  in  24-hour  format.  Also  displayed  are  the 
number  of  weeks  from  the  beginning  of  the  simulation  and 
the  day  of  the  current  week.  The  window  has  a  menu  bar  in 
the  bottom  of  the  screen  which  shows  the  different  options 
available  to  interact  with  the  program.  An  option  is 
selected  by  pressing  the  highlighted  key  for  the  desired 
function.  The  features  of  the  overview  window  are  shown  in 
Figure  4.3.  The  menu  bar  and  the  options  are  discussed 
further  in  section  4.7. 

4.6  Description  of  Symbols  in  the  Overview  Window 

There  are  some  symbols  displayed  on  the  machine  image 
and   to  the  sides  of  the  work-in-process  areas   which  need 
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Figure  4.3     Sample   layout   of   the  Overview  Window 
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explanation.  A  blinking  'S'  on  the  machine  image  means 
that  the  machine  is  being  set  up  for  the  part  type  printed 
on  it.  A  blinking  '>'  means  that  the  machine  is  processing 
the  part  type  printed  on  it.  A  non-blinking  '  +  '  sign  on 
the  machine  means  that  the  machine  is  idle,  and  is  set  up 
for  the  part  type  printed  on  it.  The  work-in-process  areas 
have  the  part  types  displayed  on  the  either  side  of  them. 
The  number  beside  the  part  type  is  the  repetition  count  for 
that  part  type  in  that  department.  This  is  decided  from 
the  routing  matrix  which  is  read  from  the  input  file.  For 
example,  if  the  part  type  'B'  is  to  be  processed  by 
department  3  twice,  then  the  work-in-process  area  for 
department  3  will  have  two  areas  for  the  part  type  'B',  one 
labeled  'B'  and  the  other  labeled  'IB'.  This  is  to  avoid 
mixing  up  the  parts  of  the  same  type  in  different  stages  of 
processing. 

4 . 7  Menu  Functions 

The  functions  in  the  menu  are  of  two  major  categories. 
They  are  functions  which  affect  the  simulation  and  those 
which  don't.  The  following  sections  give  brief 
descriptions  for  each  of  the  menu  functions. 

4.7.1  Functions  Which  Affect  The  Simulation 

The  following  sections  will  discuss  the  functions 
which  affect  the  simulation. 
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4.7.1.1  Break  Point 

The  break  point  is  used  to  freeze  the  simulation  at 
user  specified  times  so  the  user  can  analyze  the  system 
state  at  those  times  before  resuming.  The  break  point  can 
be  changed  by  the  user  by  pressing  the  'B'  key  when  the 
simulation  is  in  progress  or  when  it  is  frozen.  The  user 
is  prompted  for  a  new  break  point.  The  old  value  is 
displayed  in  the  prompt  line.  The  break  point  is  entered 
in  minutes.  There  is  a  mandatory  break  at  the  end  of  each 
day  and  so  this  function  will  not  accept  a  value  greater 
than  the  number  of  minutes  in  a  day. 

4.7.1.2  Change 

This  function  is  invoked  by  pressing  the  'C  key  from 
the  zoom  window.  It  allows  the  user  to  change  the 
variables  on  the  zoom  screen.  The  variables  that  can  be 
changed  blink  when  the  function  prompts  for  a  new  value  for 
that  variable.  The  current  value  can  be  left  unchanged  by 
pressing  the  return  key  without  entering  any  number.  The 
function  checks  for  the  validity  and  the  range  of  the 
input.  If  the  user  enters  a  valid  entry,  it  accepts  the 
new  value  and  modifies  the  display.  It  then  prompts  for  a 
new  value  for  the  next  variable  until  all  the  variables 
that  can  be  changed  are  confirmed  correct. 
4.7.1.3  Freeze 

This   function  is  invoked  by  pressing  the  'F'   key  on 
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the  keyboard.  It  freezes  the  simulation  and  displays  the 
setup  times  to  the  left  side  and  machining  in  all 
departments.  The  simulation  can  be  resumed  by  pressing  the 
'R'  key. 

4.7.1.4  Mode 

The  modes  of  purchase,  setup  and  move  are  displayed  in 
the  overview  window  and  can  be  changed  by  pressing  'ALT_M" 
at  any  time.  The  modes  can  be  toggled  by  pressing  the 
space  bar  or  can  be  left  as  it  is  by  pressing  return. 

4.7.1.5  Pace  Keys 

The  pace  at  which  the  simulation  is  performed  can  be 
changed  by  the  gray  ' + '  and  ' - '  keys  on  the  numeric  keypad . 
There  are  5  different  paces  available;  pace  1  being  the 
slowest  and  pace  5  the  fastest. 

4.7.1.6  Schedule 

This  function  is  used  to  schedule  user  specified 
events.  Apart  from  that  it  is  also  used  to  save  the 
simulation  state  by  choosing  the  'Write'  option.  This  is 
invoked  by  pressing  'W  key  on  the  keyboard  from  the 
schedule  menu.  The  menu  also  has  the  possible  user 
schedulable  events  namely,  'Purchase',  'Setup',  'Load',  and 
'Move' .  A  required  event  can  be  scheduled  by  pressing  the 
corresponding  highlighted  letter.  The  function  then 
prompts  for  the  event  variables  to  be  associated  with  that 
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event  type.   In  addition,  it  prompts  for  the  scheduled  time 
in  the  form  of  week,  day,  hour  and  minute. 

4.7.1.7  Quit 

This  function  is  invoked  by  pressing  the  'Q'  key  when 
the  simulation  is  in  progress  or  when  it  is  frozen.  The 
program  is  terminated  gracefully  after  confirmation  from 
the  user.  The  simulation  can  be  resumed  normally  by 
answering  'No'  for  the  confirmation. 

4.7.2  Calendar  Edit  Mode 

The  simulator  goes  into  the  edit  mode  if  the  'E'  key 
is  pressed  when  the  calendar  window  is  displayed.  A  sample 
layout  of  the  calendar  window  is  shown  in  Figure  4.4.  The 
menu  changes ,  and  the  user  now  can  choose  to  ' DeleteEvent ' , 
'AddEvent',  or  quit  edit  mode.  Pressing  the  'ESCape'  key 
quits  the  edit  mode.  The  functions  'DeleteEvent'  and 
'AddEvent'  are  described  in  the  next  two  sections. 

4.7.2.1   DeleteEvent 

The  user  can  delete  any  mandatory  event,  from  the 
calendar  by  selecting  the  event  to  be  deleted  and  pressing 
the  'Del'  key  in  the  numeric  keypad.  The  selected  event 
blinks  and  is  marked  by  a  '*'  in  the  modifier  field  if 
deleted.  The  events  are  selected  by  the  scan  keys  'PgUp', 
'PgDn',  'up  arrow'  and  'down  arrow'.  A  deleted  event  can 
be  undeleted  by  selecting  that  event  and  pressing  the  'Ins' 
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Figure    4.4      Sample    layout   of    the    Calendar  Window 
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key  on  the  numeric  keypad.   Pressing  the  'ESCape*  key  after 
deletion  is  done,  quits  ' DeleteEvent' . 

4.7.2.2  Add  Event 

This  function  is  used  to  schedule  user  specified 
events  just  like  'Schedule'  menu.  It  doesn't  have  the 
'Write'  option.   Refer  to  explanation  in  section  4.7.1.6. 

4.7.3  Functions  Which  Don't  Affect  The  Simulation 

The  following  sections  will  discuss  the  functions 
which  do  not  affect  the  simulation. 

4.7.3.1  Functions  To  Change  The  Display  Window 

The  desired  display  window  can  be  selected  by  pressing 
the  function  key  associated  with  it.  The  simulator  uses 
four  windows  to  output  the  results  of  the  simulation.  They 
are  listed  with  the  associated  keys  below: 

' Fl '  -    Overview  Window 

'F2'  -    Zoom  Window 

'F3'  -    Calendar  Window 

'F4'  -    Statistics  Window 
where  'Fl',  'F2',  'F3'  and  ' F4 '  refer  to  the  function  keys 
on  the  keyboard . 

4.7.3.2  Print  Function 

This  function  dumps  the  current  screen  on  the  printer. 
It  does  the  same  thing  as  a  "PrtSc"  (PrintScreen)  key. 
This  function  freezes  the  simulation  until  the  printing   is 
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complete  if  the  simulation  is  not  already  frozen. 

Certain  special  characters  are  displayed  in  the 
overview  and  the  zoom  windows .  To  get  a  proper  printout  of 
these  two  screens,  the  printer  (usually  any  EPSON  Printers) 
needs  to  be  set  to  IBM  Proprinter  mode  as  follows: 

Several  tiny  switches  called  DIP  switches  are  inside 
any  EPSON  printer.  These  switches  are  under  the  access 
cover  on  the  right  side  of  the  printer.  To  remove  the 
cover  it  should  be  pressed  down  sideways  with  the  palm  of 
your  hand  as  shown  in  Figure  4.5.  The  figure  also  shows 
the  location  of  the  switches  and  their  factory  settings. 
Always  the  power  should  be  turned  OFF  before  any  changes 
are  made  in  the  setting  of  any  of  these  switches.  Any 
changes  made  while  the  power  is  on  will  be  ignored  until 
the  printer  is  turned  off  and  back  on.  So  all  switches 
must  be  set  with  the  power  off.  The  following  DIP  switches 
should  be  reset  to  select  the  Proprinter  mode: 

&IZ  Factory  Proprinter 

Switch  Setting  Setting 

1-4  ON  OFF 

2-1  ON  OFF 

2-3  OFF  ON 

1-6  ON  Set  any  one  of 

1-7  ON  these  three 

1-8  ON  switches  to  OFF. 
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Figure  4.5   DIP  Switch  Location  for  FX-286 
Epson  Printer 
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4.7.3.3   Scan  Keys 

The  scan  keys  'PgUp',  'PgDn',  'up  arrow'  and  'down 
arrow'  can  be  operated  only  in  the  calendar  window.  They 
are  used  to  scan  through  the  calendar  list.  They  can  be 
used  when  the  simulation  is  in  progress  or  when  it  is 
frozen. 

4.8   Summary  of  Menu  Functions 

A  summary  of  all  the  menu  functions  of  the  simulator 
is  given  in  the  form  of  a  Menu  Map  in  Figure  4.6. 
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CHAPTER  5 
SUGGESTIONS  FOR  EXPANDING  THE  SIMULATOR 

5 . 1  Introduction 

Due  to  the  modular  design  of  the  program,  further 
expansion  of  the  simulator  to  suit  various  needs  is 
possible  without  redoing  much  of  the  work  done  already. 
This  Chapter  will  explore  the  possible  expansions  to  the 
simulator  and  will  give  some  suggestions  in  implementing 
them.  Some  of  the  aspects  of  the  software  engineering  will 
also  be  discussed  here. 

5 . 2  More  Departments  and  More  Machines 

The  overview  window  in  the  present  simulator  does  not 
have  enough  space  to  display  more  than  five  departments 
with  three  machines  in  each.  From  the  way  the  department 
data  structure  is  constructed  there  is  no  limit  on 
specifying  the  number  of  departments,  the  simulation  runs 
perfectly  normal.  But  to  put  things  in  more  perspective 
for  the  user,  it  may  be  suggested  that  the  overview  window 
itself  might  have  two  to  three  pages.  These  can  be  viewed 
by  PgUp  or  PgDn  keys,  when  the  simulation  is  in  progress. 
With  more  departments  on  the  overview  window,  the  layout  of 
the  statistics  window  also  needs  to  be  adjusted  in  a 
similar  way  for  displaying  the  activation  reports. 
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5 . 3  Assembly  Department  And  A  Manufacturing  Cell 

An  assembly  department  is  a  production  work-center 
wherein  more  than  one  raw  material  type  is  assembled 
together  to  give  one  product.  It  will  have  a  totally 
different  department  structure.  The  assembly  station  must 
have  material  in  all  its  pre  areas  before  the  actual 
processing  starts.  This  kind  of  situation  will  lead  to  two 
options:  one,  where  the  individual  unassembled  products 
could  be  sold  directly  and  second,  where  the  assembly  is 
done  and  then  sold  as  the  assembled  product.  Hence  a 
priority  can  be  given  in  the  simulation. 

A  manufacturing  cell  can  also  be  built  in  a  similar 
way.  A  cell  is  a  workstation  wherein  a  raw  material  gets 
processed  at  different  machines,  which  are  all  part  of  the 
cell,  and  then  it  is  ready  to  be  sold.  The  capacity  of  a 
manufacturing  cell  is  more  than  a  single  workpiece.  These 
two  types  will  really  make  this  simulator  a  full-fledged 
interactive  production  scheduler. 

5.4  Overtime  For  The  Shop 

Of  the  variables  displayed  on  the  initial  display 
screen,  two  -  "hours  per  day"  and  "days  per  week"  -  can  be 
changed  only  before  starting  the  simulation.  During  the 
course  of  the  simulation  they  are  fixed.  It  would  be  nice 
to  see  how  the  overtime  production  meets  the  requirements 
of  master  production  schedule.   In  the  present   simulation, 
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there  is  a  mandatory  breakpoint  at  the  end  of  each  day.  At 
this  point,  the  program  could  ask  whether  the  user  wants 
the  shop  to  work  overtime.  If  the  response  is  positive, 
then  the  program  should  adjust  the  timing  for  all  of  the 
future  events  in  the  calendar  list. 

5.5  Pull  System  of  Production  Control 

If  work  is  completed  as  scheduled,  it  is  sent  from  a 
work  center  to  the  next  location  at  which  parts  are 
scheduled  for  use.  This  is  a  "push  system".  Make  the 
parts  and  send  them  to  where  they  are  next  needed,  or  to 
inventory,  thus  pushing  material  through  production 
according  to  schedule.  This  is  the  strategy  scheduled  for 
the  development  of  the  present  simulator. 

In  the  "Pull  System"  of  production  control,  the  final 
assembly  goes  to  the  preceding  process  to  obtain  the 
necessary  parts,  at  the  necessary  time,  for  a  specific 
product  assembly.  This  signals  the  preceding  process  to 
produce  (i.e.,  to  replace)  the  parts  withdrawn  by  the 
following  process.  For  the  production  of  these  parts,  the 
preceding  process  obtains  the  necessary  parts  from  the 
process  further  preceding  it.  This  implementation  can  be 
achieved  by  overwriting  the  processor  for  this  simulator. 
The  transfer  events  are  the  important  events  need  to  be 
taken  care  of. 
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5.6  Creation  of  Input  File 

The  simulation  is  started  from  an  input  file  which  has 
values  for  all  the  variables  which  define  the  problem.  It 
was  mentioned  in  Chapter  4  that  this  file  should  be  of  a 
specific  format  for  the  program  to  understand  it.  It  would 
be  desirable  if  the  user  is  able  to  create  a  valid  input 
file  through  a  front-end  program.  This  program  for 
creating  the  input  file  can  query  the  user  for  various 
inputs  and  write  a  valid  input  file  for  the  simulator  just 
as  "WRITE"  does  so  that  the  user  need  not  check  its 
validity  after  creation. 

5.7  Random  Variations  in  Setup  and  Machining  Times 

The  simulator  discussed  here  does  not  have  the 
capability  of  introducing  random  variabilities  to  the  setup 
and  machining  times.  Random  variations  were  avoided  to  aid 
in  easier  reliability  checking  and  faster  program 
development.  Addition  of  this  feature  involves  only  a  few 
lines  of  extra  code.  A  function  for  generating  pseudo 
random  numbers  should  be  written.  This  function  should  add 
variations  to  the  setup  and  machining  times  with  the  user 
specified  times  as  the  mean  value. 

5.8  Change  Setup  and  Machining  Times  During  Simulation 

Allowing  changes  to  the  setup  and  machining  times  when 
the  simulation  is  in  progress  will  make  it  easier  to 
evaluate  design  alternatives.   It  can  avoid  starting  up  the 
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simulation  again  with  a  new  input  file  with  changed  setup 
and  machining  times.  Variations  in  the  raw  material  costs 
and  product  prices  during  the  simulation  will  also  help  in 
evaluating  design  alternatives. 

5.9  Other  Features 

Other  features  which  will  enhance  the  appearance  of 
the  simulator  are  on-line  help  and  a  pull  down  menu  system. 
Since  both  of  the  above  enhancements  involve  similar 
operations  like  copying  a  portion  of  the  screen  and 
restoring  it,  they  can  be  implemented  relatively  easily  by 
developing  a  library  function  for  the  purpose. 

5 . 10  Software  Engineering 

Software  engineering  is  an  emerging  discipline  whose 
goal  is  to  produce  reliable  software  products  in  a  cost- 
effective  manner.  The  domain  of  software  engineering 
includes  three  intrinsic  areas  of  concern  (Goldberg,  1986): 
software  reliability,  software  management,  and  programmer 
productivity.  Many  practitioners  favor  software 
reliability  and  the  drive  to  produce  error-free  code  as  the 
primary  purpose  of  the  software  engineering. 

One  of  the  major  concerns  with  the  current  practice  of 
software  engineering  is  an  absence  of  predictability. 
There  is  no  sound,  scientific  way  of  predicting  accurately 
how  a  software  system  will  behave  when  it  runs. 
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Within  current  software  engineering  practice,  the  only 
sound  way  to  make  a  precise,  accurate  prediction  about  a 
software  system  is  to  build  it  and  run  it  (Good,  1986). 
There  is  no  way  to  predict  accurately  how  a  system  will 
behave  before  it  can  be  run.  So  design  flaws  often  are 
detected  only  after  a  large  investment  has  been  made  to 
develop  the  system  to  a  point  where  it  can  be  run.  A 
system  that  can  be  run  can  be  tested  on  a  set  of  trial 
cases.  If  the  system  is  deterministic,  a  trial  run  on  a 
specific  test  case  provides  a  precise,  accurate  prediction 
about  how  the  system  will  behave  in  that  one  case.  If  the 
system  is  re-run  on  exactly  the  same  case,  it  will  behave 
in  exactly  the  same  way.  However,  there  is  no  way  to 
predict,  from  the  observed  behavior  of  a  finite  number  of 
test  cases,  how  the  system  will  behave  in  any  other  case. 
If  the  system  is  non-deterministic,  the  system  will  not 
even  necessarily  repeat  its  observed  behavior  on  a  test 
case.  So  in  current  engineering  practice,  predicting  that 
a  software  system  will  run  according  to  specification  is 
based  entirely  on  subjective,  human  judgment  rather  than  on 
objective,  scientific  fact. 

As  this  simulator  was  being  developed  there  were  quite 
a  few  problems  which  might  need  a  mention  here. 
Specifically,  one  has  to  be  very  careful  when  dealing  with 
pointers.  If  a  pointer  is  allocated  a  certain  memory  in 
any  routine,  one  has  to  make  sure  that  its  memory  must  be 
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freed  at  the  end  of  the  program  by  a  function  called 
"free".  Similarly  a  temporary  pointer  must  be  equated  to 
"NULL"  after  it  has  been  used  and  the  program  is  about  to 
be  terminated.  NOLL  is  a  memory  address  pointing  to 
nothing.  Since  this  program  has  been  written  under 
Microsoft  C  environment,  one  could  use  "codeview"  debugger 
to  find  any  syntax  errors.  Codeview  comes  with  the 
Microsoft  C  compiler. 

5.11  Conclusions 

Various  stages  involved  in  the  development  of  the 
Interactive  Production  Scheduler  were  discussed.  The 
simulator,  which  is  the  result  of  this  effort,  allows  the 
user  to  control  interactively  the  flow  of  the  simulation 
when  it  is  actually  in  progress. 

This  simulator  will  be  helpful  in  training  of 
production  management  and  to  facilitate  instruction  in 
production  scheduling  by  aiding  the  visualization  of  the 
effects  of  changes  in  a  production  system.  It  is  also  a 
good  instructional  tool  for  decision-making.  Suggestions 
for  enhancement  of  the  simulator  is  also  presented  along 
with  the  technical  details  involved  in  its  operation. 
These  suggestions  along  with  the  documented  source  code  of 
the  simulator  presented  in  the  Appendix,  can  help  in  the 
future  enhancement  of  the  simulator  or  in  development  of  a 
related  application. 
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PROJECT  MAKEFILE 
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cci=  a  it  m 

CC2=  c! 

0BJS1=  opt+calendar+processtsetscr+s_conv+util5*change 
QBJS2=  input +freeze+stat*plib+print+define+zooi 
PATH=  d:\include\user\ 

QPTQBJS1=  opt.obj  calendar. obj  process. obj  setscr.obj  s_conv.obj  utils.obj  change. ob j 
0PT0BJS2=  input. obj  freeze. obj  stat.obj  plib.obj  print. obj  define. obj  zoo*. obj 

opt  : 

kaake  optobjsi 
k«ake  optobjs2 
ksake  opt.exe 

optobjs!  ;   J(OPTOBJSl) 
optobjs2  ;   K0PT0BJS2) 

opt.exe  : 

link  KrjBjSD*K0BJS2/,,nul, video; 

opt.obj  i        oyt.c  *(PATH)vi.h  KPATHlkeydefs.h  KPATHlopt.h  »(PATH)std.h 

KCCll  opt.c 
process. obj  :  process. c  KPATHIvi.h  »(PATH)process.h  KPATHlopt.h  KPATHlstd.h 

KCCll  process. c 
calendar. obj  :  calendars  KPATHIcalendar.lt  KPATHlopt.h  KPATHIvi.h  KPATHlkeydefs.h  KPATHlstd.h 

KCCll  calendar. c 
5_CDnv.obj  i  5_conv.c  KPATHIcalendar.h  KPATHlopt.h 

f(CCl)  5_conv.c 
utils.obj  !    utils.c  KPATHlstd.h  f (PATH)doslib.h  KPATHlkeydefs.h  KPATHIbioslib.h  KPATHIopt.b 
KPATHIvi.h 

MCC11  utils.c 
setscr.obj  :  setscr.c  KPATHlopt.h  KPATHIvi.h 

KCCll  setscr.c 
input. obj  !     input. c  KPATHlopt.h 

KCCll  input. c 
tstfscan.obj  :  tstfscan.c  KPATHIopt.b 

KCCll  tstfscan.c 
freeze. obj  :  freeze. c  KPATHlopt.h  KPATHlvi.b  KPATHlstd.h 

KCC1)  freeze.c 
stat.obj  :      stat.c  KPATHlopt.h  KPATHIvi.h 

KCC1I  stat.c 
plib.obj  :      plib.asa 

■asi  plib.asi,,nul,nul; 
print. obj  :    print. c  KPATHIbioslib.h  KPATHlstd.h  KPATHIvi.h  KPATHlkeydefs.h  SIPATHIopt.h 

KCC1)  print. c 
define. obj  :  define. c  KPATHIdefine.h 

KCCll  define. c 
zooi.obj  :      zooi.c  KPATHlkeydefs.h  KPATHlopt.h  KPATHIvi.h  KPATHlstd.h 

KCC11  zooo.c 
change. obj  :  change. c  KPATHIdefine.h  KPATHIvi.h  KPATHlopt.h 

KCCll  change. c 
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PROJECT  HEADER  FILES 
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HUH  H»«  ».  *••  |  HHUHHHt  HiW.111,  *,  tlHWHHI.iW  »».*.»*« 

»  Bioslib.h  —  Header  file  for  BIOS  functions, 

f 

•  This  file  contains  the  definition  for  BIDS 

»  functions  used  by  the  OPT  Siiulator. 


*  Source  :  Proficient  C 


...HiilWIHiiHHillil 


tdefine  PRINT.SCRN 
tdefin.  Tffljin 
'define  KEYBD.1NIT 
♦define  D1SKJNIT 
♦define  VIDEO  JO 
tdefine  EQOIP.CK 
((define  HEK.SI2E 
tdefine  DISK  10 
tdefine  RS232J0 
tdefine  CASS  JO 
tdefine  KEYED  10 
tdefine  PRINTJD 
tdefine  TOD 
tdefine  VIDEO  JNIT 
tdefine  GRAPHICS 


.  05 
0x08 
0x0? 
OkOE 
0x10 
0x11 
0x12 
0x13 
0x14 
0x15 
Oxlo 
0x17 
OxlA 
OxlD 
OxlF 


It   BIOS  interrupts  1/ 


tdefine  SETJ0DE    0 

tdefine  CUR  JYPE    1 

tdefine  CUR.P0S    2 

♦define  6EfcUR    3 

tdefine  LPEN.P0S    4 

tdefine  SET.PSBE    5 

tdefine  SCR0LL.UP  h 

tdefine  SCROLL.  JIN   7 

tdefine  READ.CHAR.ATTR 

tdefine  WRITE  CHAR  ATTR  9 


♦define  URITE.CHAR 
♦define  PALETTE 
tdefine  BRITE.DOT 
tdefine  READ.DOT 
tdefine  KRITE.TTY 
tdefine  SET.STATE 
♦define  ALT.FUNCTION  18 
tdefine  WRITE  STR   19 


tdefine  RESET.DISK  0 
tdefine  DISK.STATUS  1 
tdefine  READ.SECTOR  2 
tdefine  NRITE.SECTOR  3 
tdefine  VERIFY.SECTOR 
tdefine  F0RHAT  JRACK  5 


/*  video  routine  nu«bers  ♦/ 

/*  (placed  in  register  AH  before  a  U 

I*   BIOS  interrupt  10H)  »/ 


H  E6A  only  W 
I*  AT  only  *l 

/*  disk  routine  nu»bers  */ 
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tdefine  KBD.REflD 

0 

•define  KBD_READY 

1 

tdefine  KBD.STSTUS 

2 

/*  keyboard  routine  nunbers  */ 
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t 

»        Calendar. h  —  Header  file  for  Calendar. c 


This  file  contains  the  declaration  of  the 
calendar  structure. 


»  Author  ;  H.  Arunachalai  and  N.  Theegala 

niHjiiiHH«i««nmi«iiiimmnHiiiimiiiiiinmiiiinf 

lifndef  CALENDAR.!! 
idefine  CALENDAR.!! 

/»  Constants  »/ 

Idefine  N.LINES    21     /*  Naxnus  nuiber  of  lines  in  calendar  page  M 

Idefine  CALENDAR  struct  calendar 


CALENDAR C 

char  nodifierj 

long  unsigned  tiie; 

int  weeks; 

int  days; 

int  hrs; 

int  tins; 

char  *fnc_ptr; 

int  a] 

int  b; 

int  c; 

int  d; 

CALENDAR  »prev; 

CALENDAR  *ne«t; 


/*  Tile  in  iinutes  */ 


/*  Function  pointer  *l 


lendif 


/*  CALENDAR  H  *l 
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tifndef  DEFINE.H 
Idefine  DEFINE.H 

ft  Declaration  of  integer  write  structure  W 
typedef  struct ( 

char  var[201; 

int  lvalue; 
>INT_WRITE; 

INT.HRITE  int.Kriten; 

/•  Declaration  at  screen  location  structure  for  the 
variables  */' 
typedef  struct! 

char  var[201j 

int  n.cols; 

int  row; 

int  col; 
IVSR.LOCATION; 

VARJ.OCATIQN  var Jocationtlj 

tendif  H  DEFINE  H  H 
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/ttHHMttttH»Ht*t«tttHtmmiti«fti«««it<iitititiMtHiHH»it 
* 

»  Doslib.li  --  Header  file  for  DOS  Interrupts. 

• 

»  This  file  contains  the  definition  of  DOS 

t  interrupts  used  by  the  OPT  Sinulator. 

I 

»  Source  :  Proficient  C 

HHHHHmilllllfliHIIIHHlHIIHIIHflHKHIHIlHIHKIHH 

II  DOS  interrupts  «/ 

Jdefine  PEH.TERHIMATE      Os20 

Idefine  BDOS_REB    0x21 
Idefine  TEflni«flTE_ADDR     0x22 
Idefine  CB_EXIT_AD0R  0x23 
idefine  CRITICAL  ERR  0x24 


•define  ABSJISKJEAD 

0x25 

•define  ABS.DISKJIRITE 

0x24 

Idefine  PBIHERn'rES  0x27 

i*  DOS  functions  ~  usually 

placed 

in  ah  register  for  C84  calls  »/ 

Idefine  PBK 

0x0 

Idefine  KEY1H_ECH0_CB 

Ox] 

Idefine  DSPY.CHAR 

0x2 

Idefine  AUX.IN 

0x3 

Idefine  AUX.OUT 

0x4 

Idefine  PRNT.OUT 

m 

Idefine  KEVIN.ECHO 

5x4 

♦define  KEVIN 

0x7 

Idefine  KEVIN  CB 

OxS 

Idefine  DSPV.STR 

0x9 

Idefine  KEYIN_BUF 

Ox  A 

Idefine  CH.READV 

OxB 

Idefine  6ET.CH 

OxC 

Idefine  DISK.RESET 

Q*D 

Idefine  SELECTJISK 

OxE 

Idefine  DPEN.FILE 

OxF 

Idefine  CLOSE.FILE 

0x10 

Idefine  FIRST.FN 

Oxll 

Idefine  NEXT.FN 

0x12 

idefine  DELETE.FILE 

0x13 

Idefine  READ.SEQ 

0x14 

Idefine  NRITE.SEfl 

0x15 

Idefine  CREATE.FILE 

Ox  It 

Idefine  RENAHEJILE 

0x17 

/«  0x18  reserv 

>d  •/ 

Idefine  CURRENT  DISK 

0x19 

Idefine  SETJTA 

OxlA 

Idefine  DFLT.FAT  INFO 

OxlB 

Idefine  FATJNFo" 

hit 

/•  OxlD  -  0x20  reserved  1/ 
Idefine  READ.RANDON       0x21 
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•define  HRITE_RftNDOH 

0x22 

tdefine  FILE.S1ZE 

0x23 

f define  SETJHT.VEC 

0x25 

Idefine  NEH_PS«_SEG 

0x24 

♦define  RAND_BLK_REAI> 

0x27 

Idefine  RAMD_BLK_HRITE 

0x28 

♦define  PARSE_FIL£NAHE 

0x29 

•define  BET.SftTE 

Ox2A 

Idefine  SET.DATE 

Ox2B 

Idefine  GETJIME 

0x2C 

Idefine  SET.TIHE 

Ox  2D 

Idefine  TOGGLE. VERIFY 

Ox2E 

Idefine  6ET.DTA 

Ox2F 

Idefine  D0S_VERSI0N 

0x30 

Idefine  PGR.TERN.KEEP 

0x31 

/«  0x32  reserved  1/ 

Idefine  CB.CHECK 

0x33 

/«  0x34  reserved  *l 

Idefine  6ETJHTR 

0x35 

Idefine  6ET.FREEJPACE 

0x36 

/*  0x37  reserved  t/ 

Idefine  INTLJNFO 

0x38 

•define  HKDIR 

0x3? 

Idefine  RBDIR 

OxM 

Idefine  CHD1R 

Ox3B 

Idefine  CREAT 

0x3C 

•define  OPEN.FD 

Ox  3D 

♦define  CLOSE.FD 

0x3E 

•define  NRITE.FD 

0x40 

•define  UNLINK 

0x41 

•define  LSEEK 

0x42 

Idefine  CHMOD 

0x43 

•define  IOCTL 

0x44 

♦define  DUP 

0x45 

♦define  FDRCEJUP 

0x46 

♦define  BET_CUR_DIR 

0x47 

idefine  ALLOC 

0x48 

Idefine  FREE 

0x49 

♦define  SETJLOCK 

Ox4A 

♦define  EXEC 

Cx4B 

♦define  HIT 

0x4C 

Idefine  WAIT 

0x4D 

♦define  F1ND_FIRST 

Ox4E 

♦define  FINDJEIT 

0x4f 

/*  0x50  -  53  reserved  U 
♦define  VERIFY.STAIE      0x54 

/*  0x55  reserved  «/ 
Idefine  RENAME  0x56 

Idefine  FILE.nTINE        0x57 


76 


:«m(H!H«H(HHm«(>iiHH.H«mi«|M.Hi«iltlH(««.!t 

Keydefs.h  —  Header  file  for  keyboard  interrupts. 

This  file  contains  the  definition  of  keyboard 
interrupts  and  values  for  special  keys  on  IBM 
PC  and  clones. 

Source  :  Proficient  C 

tHimilHHKHKIInmilllHIIIIKIiHIIIHimmillHHIIHII! 

iefine  XF  0x100       /'*  eitended  key  flag  */ 


•define  K.F1  59 

XF 

•define  K~F2  60 

XF 

•define  K_F3  61 

SF 

•define  K_F4  62 

XF 

•define  K.F5  63 

XF 

•define  K_F6  64 

XF 

•define  K.F7  65 

XF 

•define  K_F8  66 

XF 

•define  K_F9  67 

IF 

•define  K.F10 

68 

XF 

•define  K.SF1 

84 

XF 

•define  K.SF2 

85 

XF 

•define  K_SF3 

86 

XF 

•define  K.SF4 

B7 

XF 

•define  K.SF5 

88 

XF 

•define  KJF6 

8? 

XF 

•define  KJF7 

90 

XF 

•define  K.SF8 

91 

XF 

•define  K~5F9 

92 

XF 

•define  KJF10 

93 

XF 

•define  K.CF1 

94 

XF 

•define  K.CF2 

95 

XF 

•define  K.CF3 

96 

ff 

•define  K.CF4 

97  ! 

IF 

•define  K.CF5 

98  : 

XF 

•define  K_CF6 

99  i 

XF 

•define  K.CF7 

100 

:  xf 

•define  K.CF8 

101 

:  if 

•define  k"cF9 

102 

XF 

•define  K.CF10 

103 

!  XF 

•define  KJF1 

104 

1  XF 

•define  K.AF2 

105 

!  XF 

•define  K.AF3 

1 06 

!  XF 

•define  K.AF4 

!07 

XF 

•define  KJF5 

108 

XF 

•define  K.AF6 

109 

XF 

/»  shifted  function  keys  */ 


/*  control  function  keys  »/ 


I*  alternate  function  keys  */ 
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Idefine  K.9F7 

no 

!  IF 

tdEfine  K.AF8 

m 

1  IF 

Idefine  KJF9 

112 

;  <F 

Idefine  K.AF10 

113 

1  IF 

Idefine  K.HOHE 

7i  : 

XF 

Idefine  K.END 

7?  ! 

If 

Idefine  K.PGUP 

73  ! 

XF 

Idefine  K_PBDN 

81  ; 

XF 

Idefine  KJ.EFT 

75  1 

XF 

Idefine  K.RI6H7 

77  i 

XF 

Idefine  K.UP  72 

XF 

Idefine  K.DOKM 

80  i 

JF 

♦define  K.CHONE 

119 

!  XF 

•define  K.CEND 

117 

:  xf 

Idefine  K.CPBUP 

132 

!  IF 

Idefine  K.CPBDN 

118 

:  xf 

Idefine  K.CLEFT 

115 

1  IF 

Idefine  K_CR6HT 

116 

:  *f 

Idefine  K_CTRLA  1 

1 

Idefine  K_CTRLB 

2 

Idefine  K_CTRLC 

3 

Idefine  K_CTRLD 

( 

Idefine  K.CTRLE 

5 

Idefine  K_CTRLF 

k 

Idefine  K~CTRL6 

7 

Idefine  K_CTRLH 

8 

Idefine  K.CTRLI 

? 

Idefine  K.CTRLJ 

10 

Idefine  K.CTRLK 

11 

Idefine  K.CTRLL 

12 

Idefine  K_CTRLM 

13 

Idefine  k'cTRLN 

14 

Idefine  K.CTRLO 

15 

Idefine  K.CTRLP 

16 

Idefine  K_CTR18 

17 

•define  K.CTRLR 

19 

•define  K.CTRLS 

19 

Idefine  K.CTRLT 

20 

Idefine  K.CTRLU 

21 

Idefine  K.CTRLV 

22 

•define  K.CTRLH 

23 

Idefine  K.CTRLX 

24 

Idefine  K.CTRLY 

25 

Idefine  K_CTRLZ 

24 

•define  K.ALTA 

30  I 

XF 

♦define  K.ALTB 

49  1 

IF 

Idefine  K_ALTC 

44  ! 

XF 

/*  cursor  keypad  (Unlock  off;  not  shifted!  »V 


/*  control  cursor  keypad  »/ 


/»  standard  control  keys  »/ 


If  alternate  keys  »/ 
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tdefine 
tdefine 
tdefine 
♦define 
tdefine 
tdefine 
tdefine 
Idefine 
tdefine 
tdefine 
♦define 
Idefine 
idefine 
Idefine 
Idefine 
Idefine 
Idefine 
tdefine 
tdefine 
tdefine 
tdefine 
tdefine 
tdefine 


K.ALTD 
K.ALTE 
K.ALTF 
K.ftLTB 
KJtLTH 
K.ALT  I 
K.ALT,! 

k'altk 

K.ALTL 
K.ALTB 
K.ALTN 
K.ALTO 
K.ALTP 
K.ALTB 
K.ALTR 
K.ALTB 
K.ALTT 
K.ALTU 
K_ALTV 
K.ALTU 
K.ALTJ 
K.ALTY 
K  ALU 


Idefine  K.ALT1 
tdefine  K.ALT2 
tdefine  K.ALT3 
Idefine  K.ALT4 
tdefine  K.ALT5 
Idefine  K.ALT6 
tdefine  K.ALT7 
tdefine  K.ALTB 
tdefine  K.ALT9 
tdefine  K_ALT0 
tdefine  K.ALTDASH 
tdefine  K  ALTEQU 


32  !  XF 

18  I  XF 

33  !  XF 

34  !  XF 

35  i  XF 

23  !  XF 

36  !  XF 

37  !  XF 
3B  !  XF 
50  :  XF 
♦9  !  XF 

24  !  XF 

25  !  XF 

16  !  XF 

19  1  XF 
31  !  XF 

20  !  XF 
22  !  XF 
♦7  !  XF 

17  !  XF 
45  !  XF 

21  !  XF 
44  !  XF 


120 

120 
120 

120 
120 
120 

120 
120 
120 
120 


/*  additional  alternate  key  combinations  »/ 


120 
120 


tdefine  K.E5C 
tdefine  K.SPACE 
tdefine  K.INS 
tdefine  K_DEL 
tdefine  K.TAB 
tdefine  K~BACKTAB 


27 

32 

B2  i  XF 
B3  i  XF 
K  CTRL1 


K  CTRL0 


/•  «iscellaneous  special  keys  *.' 


tdefine  K.CTRL.PRTSC  144  I  XF 

tdefine  K.RETURN  13 
tdefine  K.SRETURN  13 
tdefine  K.CRETURN   10 


/«  printer  echoing  toggle  *l 
It  return  key  variations  */ 
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;i4HHHHHHHIJ»mHHItHHH(»mmHHHHlfHHIH»»H 


Opt.h  —  Header  (ile  for  the  DPT  Similiter 

This  file  contains  the  declaration  of  all 
global  variables  and  structures  used  by  the 
OPT  Si«ulator. 


*  Author  :  N.  Arunachalan  and  B.  Theegala 

HMHHMWHIIIHDIHIHIHHHHHHHHHHmiHHHHWmH 

lifndef  OPT.H 
tdefine  OPT  H 


•define  MIN_PEH_HR      ML 

Idefine  HRS.PER.DflY     I (unsigned  longlhrs.per.day) 

tdefine  DAYS.PERJEEK  ((unsigned  longidays  per  «eek) 

•define  HIN_PER_DAY     IHRS.PER  DAY  »  HIH  PER  HR) 

tdefine  HRS.PERJEEK  IHRS.PER.OAY  *  DAYS  PER  KEEK) 

tdefine  MN.PER.KEEK  IHRS.PER.HEEK  t  NIN~PER^Hfi> 

tdefine  HIN_IHV  nin.inv 

tdefine  PURCHftSE.L0T.SI2E       purchase.lot.size 

tdefine  TRANSFER.BATCH  transfer  batch 

tdefine  IWT.HftNDLIKG.COST       iat.handling.cost 

tdefine  OTHER.OP.EKPENSE         other.op .expense 


tdefine  DELETED 

'\«2»' 

tdefine  CL0CKJ10DIFIER 

'U24' 

tdefine  UNLOAD.HODIFIER 

'\x24' 

tdefine  RE6.N0DIFIER 

'\x40' 

tdefine  USER.SPECIFIED 

'U' 

tdefine  USER.DELETED 

■\tf 

tdefine  UN.UTIL12ED 

224 

tdefine  CLOCK.TICK 

"clock. tick' 

tdefine  PURCHASE 

"purchase" 

tdefine  SETUP 

"setup" 

tdefine  LOAD 

"load" 

tdefine  UNLOAD 

"unload 

tdefine  HOVE 

"■ove" 

tdefine  SETTING.UP 

'S' 

tdefine  PROCESSING 

'\xftF' 

tdefine  IDLE 

'+' 

/*  Forial  definition  of  the  functions  */ 


char  ny.ialloclintlj 


I*  Error  sensitive  «alloc()  */ 


/♦  Global  variables  «/ 

int  pageno; 

unsigned  long  int  event.tile,  ti«e_no«! 

int  »eek,  day,  hr,  lin,  »eek.no«,  day.non,  hr.noN,  «in_no»: 


80 


char  lodifier; 
char  event_type[201; 

rtt  event_varl,  event_var2,  event_varJ,  event_var4; 
"t  freezed;  /«  TRUE  when  freezed  and  FALSE  ihen  not  »/ 

nt  deleted;  H  TRUE  »hen  event  deleted  FALSE  othemise  §/ 

nt  user_specified:       It  TRUE  if  user  specified  setup  >/ 
nt  processing!  It  TRUE  if  tachine  is  processing  at  the  tile  of 

user  specified  setup  1/ 
nt  auto.purchase;        It  TRUE  if  user  »ants  auto«atic  replenishnent 

of  ran  laterials  »/ 
nt  auto_5etup;  /*  TRUE  if  user  »ants  autonatic  setups  #/ 

nt  auto.aove;  /t   TRUE  if  user  »ants  autoiatic  laterial 

transfer  »/ 

nt  state; 

long  cash,  expense; 
nt  njiepts,  njtypes,  »as_ops; 
nt  pace; 

nt  routetlOHlO]; 
nt  sti«e[2J[10U101j 
nt  «ti.et2K101[10]; 

nt  ra»_for_ptype[101; 

nt  routing_ro«,  routing_col,  ra»_«at_ro«,  ra»_»at.coI,  prod_ro»,  prod  col; 

nt  n_ra«_«at,  n_products,  priori ty_ron,  priori ty_col ; 

nt  zoon_roH,  zooi_col; 

nt  zoo»_dept; 

nt  hrsperjiay; 
nt  daysper  jieek; 

nt  iin_inv; 
nt  purchasejotsize; 
nt  transferbatch; 
nt  «at_handling_costj 
nt  otherjipexpense; 
int  stat_pgup; 

It  Global  structures  1/ 
♦define  MACHINE  struct  lachine 
•define  PARTJNFO  struct  part.infornation 
♦define  DEPT  struct  departient 
♦define  RAH  struct  ra»_«aterial 
♦define  PRODUCT    struct  products 
♦define  STATS  struct  statistics 

/»  Private  variables  to  files  Kbich  include  opt.h  */ 
DEPT  *dept_h; 
RAN  »ra»  tat; 


PRODUCT  (product j 
STATS  «stats; 

I*  Structure  for  lachine  •/ 
llflCHINEi 

int  row; 

int  col; 

int  aach_no; 

int  repeat; 

int  setup_for; 

char  setup_for_in_char; 

int  istate; 

int  user_stopped; 

unsigned  long  int  state_change_tme; 

unsigned  long  int  tiMjdiej 

unsigned  long  Liu  t:8e_setup; 

unsigne.  long  int  tine  busy; 

mum.  'next; 

>; 

It  Structure  for  part  infornation  </ 
PAfiT_INfO{ 

int  row; 

int  col; 

int  repeat; 

int  ptype; 

char  ptype_in_char; 

int  pre; 

int  post; 

int  dept_no; 

PART  INFO  tnext; 

>; 

I*  Structure  for  department  »/ 
DEPTC 

int  dept_no; 

int  nsachines; 

int  n»achjn_use; 

int  rait; 

int  col; 

MACHINE  nach; 

PARTJNFO  tpart.info; 

DEPT  fnext; 

>; 

/»  Structure  for  ran  naterials  H 

nm 

int  raH_eat_no; 

int  cost; 

int  ro»; 

int  col; 
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RAH  'next; 

>; 

/»  Structure  for  products  »/ 

PRODUCT! 

int  prod_no; 

int  price; 

int  qnty_producedj 

int  lilitj 

int  row; 

int  col; 

PRODUCT  »next; 

5; 

/*  Structure  for  statistics  H 

STflTSt 

int  Hn_ro«j 

int  fin_colj 

long  startcash; 

long  cash_no«; 

long  sales_revenue; 

int  raw_ftat_exp; 

int  sat_hand_exp; 

int  other_op_exp; 

int  net_cash_flo»; 

tendif          /«  0PT_H  1/ 
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/HHfMtHHHHMHHMMHMHHHHHHHMHItHitHMHHMHt 

f 

*        Process. h  --  Header  file  for  process. c 


This  file  contains  the  declaration  of  the 
event  procedures  and  initialization  of  the 
coitand  table  for  the  event  processor. 


*        ftuthor  :  n.  Arunachalai  and  H,  Theegala 

HHHIIimmiHIHHHlHHIfHHmiHHHHHimHmHIIHH 

Kifndef  PROCESS.H 
•define  PROCESS  H 


/»  —  Functions  in  the  caljncs  coniand  table  —  »/ 

int  advance.docklint,  int,  int,  int); 

int  purchase_ramat(int,  int,  int,  int) ; 

int  setup _«achinelint,  int,  int,  int); 

int  !oad_aachineiint,  int,  int,  int); 

int  unload_,iachine(int,  int,  int,  int); 

int  aove.partlint,  int,  int,  int); 

typedef  struct t 

char  na«e[20J;  It  Event  types  -  can  be  1?  characters  long  *l 

int   (•fncllint,  int,  int,  int);  /*  Event  procedures  */ 

3ML.FUMCTIDNS; 


CSL  JUNCTIONS  cal.fncsl]  • 


"clock_tick", 

"purchase", 

"setup", 

"load", 

"unload", 

"■ove", 

"">; 


advance_dock, 

purchasejaimat, 

setupjiachine, 

load_nachine, 

unload_iachine, 

»ove_part, 


lendif 


I*  PROCESS  H  1/ 
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/m*Ht<<tm<tt*fH»*H>iMt«tfHtiHmt**«t»<t»«t*mmt<ft*<t 

» 

•  Std.h  —  Header  file  (or  standard  declarations 

i 

*  This  file  contains  the  definition  of 

»        standard  constants  used  by  the  OPT  Siiulator. 

t 

»  Source  :  Proficient  C 

HHmilflHHHIIHHHmiHIHIHUlHHimilllHHHIimillf 

/•  data  type  aliases  »/ 

Idefine  BETS  short 

Idefine  UCHAR      unsigned  char 

tdefine  UINT  unsigned  int 

Idefine  UL0N6      unsigned  long 

Idefine  USHORT     unsigned  short 

/»  Boolean  data  type  •/ 
typedef  enua  { 

FALSE,  TRUE 
1  BOOLEAN; 

/*  function  return  values  and  prograa  exit  codes  »/ 
Idefine  OK   0 


Idefine  BSD  1 

Idefine  SUCCESS  0 

Idefine  FAILURE  1 

Idefine  FALSE 

0 

Idefine  TRUE  ! 

/*  infinite  loop  */ 

Idefine  FOREVER  «hil 

e  (1) 

/»  sasks  */ 

Idefine  K1BVTE 

OxFFOO 

Idefine  LOBVTE 

OxOOFF 

Idefine  ASCII 

0x7F 

Idefine  HIBIT 

0*80 

it   lengths  •/ 

Idefine  KAXNAHE  8 

♦define  HAJEXT 

3 

Idefine  NAXLINE 

256 

Idefine  MAXPATH 

M 

/*  special  nuaber  */ 
Idefine  BI66EST    65535 
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ItitiUHHnmttttHtHHHttHHtHHUtHHHHHUHmfiiHiiH 
»  * 

*  Vi.h  —  Header  file  for  the  video  routines  * 
>  < 

*  This  file  contains  declarations  and  definitions  * 

*  used  by  direct  video  routines  in  the  video  * 

*  library  "Video.h*  < 
»  f 

*  Authors  :  Kent  Funk  t  < 
HMiuiHHiiiiHimtwmwtwtmmHHHimimwHwiHH/ 

lifndef  VI.H 
•define  VI  H 


Idefine  VSTAT  0x3DA 

Idefine  VRBIT  S 

Idefine  VSYNC  nhi 

le  K 

Lnp (VSTAT)  i  VRBIT) 

==  VRBIT!;  \ 

while  (linp(VSTAT) 

I  VRBIT)  !»  VRBIT) 

/•  Screen  attributes  */ 

Idefine  NORN  7 

Idefine  REV  112 

Idefine  INT  3 

Idefine  BLNK  128 

Idefine  F.BLACK 

0 

Idefine  FJLUE 

1 

Idefine  F.SREEN 

2 

Idefine  F.CYAN 

3 

Idefine  F.RED 

4 

Idefine  f](1A6ENTS 

3 

Idefine  F.BRDHN 

k 

Idefine  F.HHITE 

7 

Idefine  B_BLACK 

0 

Idefine  B.BLUE 

14 

Idefine  B.GREEN 

32 

Idefine  B.CYAN 

18 

Idefine  B.RED 

64 

Idefine  B.IIAGENTA 

80 

Idefine  B.BRDHN 

96 

Idefine  BJMITE 

122 

/»  screen  attributes  of  entities  in  the  si«ulator  «/ 
Idefine  CL0CK.COL0R    B.BLACW.BROKN+INT 
Idefine  S.TEXT .COLOR  B.BLflCK+FEREEN+INT 
Idefine  TITLE.COLOR    8_BLACK*F~HHITE*INT 
Idefine  ERR0R.COL0R    B_8lACKtFJ*HITE*INT+6LNK 
Idefine  KS8.C0L0R       B.BLACtftF.KHITE+INT 
♦define  CASH.CQLQR      BJLUE+fJrOMI+INT 
Idefine  EJPENSE.CDLOR  B  RED+F  HHITE+INT 

Idefine  lOU.KEY.COLOR  B~BLJE+F_r,YAN+INT 

Idefine  HENU.FNC.COLOR  B^BLUE+FHHITE+IMT 
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♦define  NACHINE.COLOR  B_BLUE+F  HHITE+INT 

♦define  STInE.c6l.DR    B_BREEN+F~BLACK  " 

♦define  HT!«E_C0LOR    BJREEN+FJLACK 

tdefine  PRE.COLDR       B_CYAN+F_8LUE 

tdefine  POST.CDLOR      b'cYAN+FJLUE 

♦define  R0UTE_COLDR    BJLACK+F.CYAN+INT 

♦define  PRDD_NO_CDL0R  BJLUEtF.CYANtlNT 

♦define  PRODUCT_COLDR  REV  It  B  WHITE+F  BLUE  M 

♦define  PRIORITY.COLOR  B_BLflCK+F_CVAN+ll»T 

♦define  CAL.»OD_C0LOR  b'bREEN+f'brOHN+INT 

♦define  CAL.TINE_COLOR  B_BLUE+F_WHITE+IMT 

♦define  CftL.FNC.COLOR  B~RED+F_HHITE+INT 

♦define  CALJEST.COLDR  B~BLUE+F  CYAN 

♦define  STAT_FIN_COL0R  BJED*F_iiHITEtlNT 

♦define  STAT_SLS_COLOR  B_KflSENTfl+F  NHlTEtINT 

♦define  STAT_ACT_COLDR  B_BLUE*F_BHITE+INT 

It  Scrolling  directions  »/ 
♦define  SCRL_UP  0 

tdefine  SCRLJJOHN  1 
♦define  SCRLJ.EFT  2 
♦define  SCRLJU6HT      3 

/*  clear  screen  nacro  */ 
♦define  vids(vpage)   (viblanktvpage,  0,  0,  21,  791) 

/*  Forial  screen  function  definitions  »/ 
void  viblanklint,  int,  int,  int,  int ) ; 
void  viputslint,  int,  int,  int,  char  »); 
void  viputclint,  int,  int,  int,  char); 
void  viputcdint,  int,  int,  char) ; 
void  vierasecclint,  int,  int); 
void  viscrlint,  int,  int,  int,  int,  int); 
void  viboK (int,  int,  int,  int,  int,  char,  int); 

void  viprintflint,  int,  int,  int,  char  t,  );  It  variable  args  »/ 

void  viernsglint,  char  *,  );  it  variable  args  «/ 

♦endif  It  V1_H  1/ 
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PROJECT  SOURCE  FILES 
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•include  <stdio.h> 
•include  <conio.h> 
•include  "user\calendar.h" 
•include  "user\opt.h' 
•include  'userWi.h1 
•include  'user\keydefs.tt' 
•include  'user\std.h' 

static  CALENDAR  «cal_q,  *cal_h,  *cal_t,  «cal_user,  *cal_teip; 
static  CALENDAR  tfirstjine,  *last_Hnej 
static  int  finalline; 

/>  —  Functions  for  calendar  «anage«ent  —  */ 

void  fori  calendar (void! ; 

void  set_cal_«indow(voidl; 

void  display_calendarlvoid); 

void  get_next_event(void); 

void  disp_last_linelint); 

void  displayjinelint,  CALENDAR*); 

void  schedulelchar*,  unsigned  long  int,  int,  int,  int,  int) ; 

void  changelchar*,  int,  int,  int,  int); 

void  del_event_frofl_cal (void); 

void  dispose_calendar(void); 

void  set_cal_pgup(void); 

void  set_cal_pgdn(void); 

void  setcaMup(void); 

void  set_cal_ljo«n(void); 

void  edit_calendar(void); 

void  delete_event(voidl; 

void  user_schedule(void!! 

void  update_iodifier(CALENDAR*l; 

int  «rite_cal_list(charHj 

int  read.calJistlFRE*); 

/»  —  Private  functions  to  calendar. c  —  W 
static  void  display.detailslint,  CALENDAR!); 

/»  Function  to  fori  the  calendar  */ 

void  fort  calendar!) 

[ 

unsigned  long  int  elk  tiie; 

CALENDAR  tteip; 

cal_q  «  calji  =  cal_t  '  cal.user  =  cal_te«p  =  NULL; 
calj  =  (CALENDAR»!iy_Mlloc(sijeof(CALENDAR)); 
cal_h  =  cal_t  -  caluser  =  calteip  =  cal  g; 
cal_h->iodifier  =  CLOCK  MODIFIER; 
cal.h-Hiie  =  1L; 

tiie_to_string(ca!_h->tiie,  ca!  h); 
cal.h-Mnc.ptr  •  CLOCK  TICK; 
cal  h->a  =  0; 
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} 


cal_h->b  =  0; 
cal_h->c  =  Oj 
Ell.k-M  =  0; 

cal_h->prev  =  HULL; 

tetp  =  cal_hj 

far(clk_ti»e=2Li  clk.tiie  <  6L;  c]k_ti«e+*S! 

teip->ne»t  =  (CflLENDflR»)sy_«aHoc(si2eof (CALENDAR!) j 

te«p  =  te«p->next; 

teip->prev  =  cal_t; 

cal_t  =  te«p; 

teip->»odifier  ■  CLUCK  JtDDIFlER; 

te«p->tiie  ■  clk_ti«e; 

tiie_to_string(teip->ti«e,  tetp); 

tetp-Mnc.ptr  =  CLOCKJICK; 

teip->a  =  0; 

teip->b  =  0; 

teip->c  =  0; 

teip->d  =  0; 
) 

cal_t->next  =  NULL; 
te«p  =  NULL; 


/*  Function  to  set  the  visual  calendar  lisits  «/ 

void  set  cal  nindonil 

{ 

int  nlines; 

firstjine  =  cal_h; 

for(nlines=0,  last_line=first_line;\ 

last_line->nest  !=  NULL  V.  nlines  <  N_LINES;\ 
last  line  =  last  lme->nest,  nlines**); 
} 

ft  Function  to  display  the  calendar  in  the  calendar  nindo»  »/ 

void  display  calendar!) 

t 

int  i; 

CALENDAR  fdispjine; 

viblank(2,  0,  0,  21,  79); 

for(i=0,  disp_line=first.line;  dispjine  !=  last.line->next;\ 

dispjine  =  dispjine- >next,  i++)( 
viprintf (2,  i,  0,  CAL_H0D.C0LQR,  "ft  ',  disp  line->.odifier); 
viprint-f (2,  i,  2,  CAl.TINE.COLQR,  "?2d:Jld:!2d:S2d  ",\ 

dispJine->Keeks,  disp_line->days,\ 
disp_line->hrs,  disp_line->iins); 
if(disp_Iine->«ins  <  10)  viprintf(2,  i,  10,  CAL  TIKE  COLOR,  "ft" 
viprint<<2,  i,13,  CAL.FNC.COLOR,  "Js",  disp.line-Xnc  ptr); 
display  detailsli,  disp  line); 
} 
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final  line  ■  i-1; 
} 

/»  Function  to  display  the  details  in  the  calendar  line  */ 

static  void  display.detailslscr.line,  caljtr) 

ifit  scr.line; 

CALENDAR  »cal  ptrj 

t 

char  pchar; 

iflstrciplcal.ptr-Mnc.ptr,  CLOCK.TICK)  =  OH 

viprintf (2,  scr  line,  23,  CAL  FNC  COLOR,  'It',  '  '); 
) 
if(strcip(cal_ptr->fnc.ptr,  PURCHASE)  ==  OH 

viprint-F (2,  scr.line,  21,  CAL.FNC.COLOR,  "Is",   "      "!; 

viprintf(2,  scr.line,  24,  CAL.REST.COLOR,  "Is",  "ran!  "Ij 

viprintf!2,  scr.line,  29,  CAL.REST.COLOR+INT,  "lid*,  cal_ptr->a>; 

viprintf (2,  scr.line,  30,  CAL.REST.COLDR,  "Is1,  "  for  ptype  ")j 

«ap.part_type(cal_ptr->b,  4pchar! ; 

viprintH2,  scr.line,  41,  CAL.REST.COLDR+INT,  "St",  pchar) J 

viprintf(2,  scr.line,  42,  CAL.REST.COLOR,  "2s",  ■  qty:  '); 

viprintf (2,  scr  line,  48,  CAL  REST  CDLDR+INT,  "Id",  cal  ptr->c); 
) 
iflstrceplcal.ptr-Mnc.ptr,  SETUP)  ==  OH 

viprintf (Z,  scr.line,  18,  CAL.FNC_C01.DR,  '!»•,  '     "Ij 

viprintf (2,  scr.line,  24,  CAL.REST.COLDR,  "Is",  "»ach  "Ij 

viprintf 12,  scr.line,  29,  CAL.REST.CDLOR+INT,  t\f,   cal  ptr->al; 

viprintf (2,  scr.line,  30,  CAL.REST.COLOR,  "Is",  "  in  dept  "Ij 

viprintf <2,  scr.line,  39,  CAL.REST.COLORtINT,  "Zld",  cal  ptr-)b); 

viprintf (2,  scr.line,  40,  CAL  REST  COLOR,  "is",  ■  for  ptype  "l| 

iflcal.ptr->c  >  OH 

viprintf(2,  scr.line,  51,  CAL.REST.COLDR+INT,  "Ud1,  cal  ptr->c); 

)else( 

viprintf (2,  scr  line,  51,  CAL  REST  COLOR,  "Ic",  '  'I; 

) 

»ap.part_type(cal.ptr->d,  ipchar); 

viprintf (2,  scr.line,  52,  CAL.REST.COLDR+INT,  'Ic",  pchar); 

if(5trcip(cal_ptr-Mnc.ptr,  LOAD)  ==  OH 

viprintfl2,  scr.line,  17,  CAL  FNC  COLOR,  "Is",  '     ■); 
iflcal.ptr->a  «  OH 

viprintf(2,  scr.line,  24,  CAL.REST.COLOR,  "Is",  "free  lach  in  dept  "); 
viprintf (2,  scr.line,  42,  CAL.REST.COLOR+INT,  "lid",  cal  ptr->b); 
viprintf (2,  scr.line,  43,  CAL.REST  COLOR,  "Ss",  "  setup  for  "lj 
if(cal.ptr->c  >  OH 

viprintf (2,  scr.line,  54,  CAL  REST  COLOR+INT,  "Hid",  cal  ptr-> 
)else{ 

viprintf (2,  scr.line,  54,  CAL.REST.COLOR,  "Ic",  '  'Ij 

•ap.part_type(cal.ptr->d,  Ipchar); 

viprintf (2,  scr.line,  55,  CAL.REST.CDLOR+INT,  "Ic",  pchar); 
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Jelsel 

viprintf(2,  scr_line,  24,  CftL_REST_COLOR,  "7.5",  "lie*  "I; 

viprint(i2,  scr.Iine,  29,  CAL.RE3T.C0L0R+INT,  'lib",  cal_ptr->al; 

viprintf 12,  scr.Iine,  30,  CflL_REBT_CDLDR,  "7,5",  "  in  dept  "); 

viprintf!2,  scr.Iine,  39,  EflL_REST_COL0R+IHT,  "lid",  cal.ptr->bl; 

viprintf (2,  scr.Iine,  40,  CftL  REST  COLOR,  'Is",  "  setup  for  •); 

if(cal_ptr->c  >  »)( 

viprintf (2,  scr  line,  51,  ML  REST  COLORKNT,  "lid1,  cal  ptr->cl; 

lelsel 

viprintf  (Z,  scr  line,  51,  ML  REST  COLOR,  "Ic",  '  ')( 

) 

■ap_part_type(cal_ptr->d,  Srpchar); 

viprintf (2,  scr  line,  52,  ML  REST  CDLOR+INT,  7c',  pcnarl; 
> 
) 
if(strc«p(cal.ptr->fnc.ptr,  UNLOAD)  ==  OK 

viprintf (2,  scr.Iine,  19,  CAL.FNC.CQLOR,  "7.5", 
viprintf (2,  scr.Iine,  24,  CAL.REST.COLOR,  "Is" 
viprintf f2,  scr.Iine,  29,  CAL.REST.COLOR+INT, 
viprintf (2,  scr.Iine,  30,  CAL_REST[cOLOR,  "Is" 
viprintf (2,  scr  line,  39,  ML  REST~COLDRHNT, 
} 
if!strcip(cal_ptr->fnc_ptr,  DOVE)  ==  0!( 

viprintf (2,  scr.Iine,  17,  ML.FNC.CQLOR,  "Is", 
viprintf (2,  scr.Iine,  24,  CAL  REST  COLOR,  "Is" 
iflcal.ptr->a  >  OK 

viprintf (2,  scr  line,  34,  CAL  REST  COLDR-UNT,  "lid",  cal  ptr->al; 
lelse! 

viprintf (2,  scr  line,  34,  CAL  REST  COLOR,  "Ic",  '  '); 
} 

•ap_part_type(cal_ptr->b,  tpcharlj 

viprintf 12,  scr.Iine,  35,  CAL.REST.COLOR+INT,  7,c",  pchar); 
viprintf (2,  scr.Iine,  34,  CAL.REST.COLOR,  "Is",  "  frM  dept  "); 
viprintf (2,  scr.Iine,  47,  CAL.REST.COLOR+INT,  "Ud",  cil_ptr->c); 
viprintf (2,  scr.Iine,  48,  CAL.REST.COLOR,  "Is",  "  in  transfer  batch  size  "); 
viprintf (2,  scr.Iine,  72,  CAL.REST.COLOR+INT,  "Id",  cal  ptr->d); 


■>i 

"«ach  "); 
lid",  cal_ptr 
,  "  in  dept  ") 
'lid",  cal.ptr 

->a); 

"); 
i  "part  type  " 

H 

1 


/»  Function  to  display  the  last  line  in  the  calendar  list  «/ 

void  disp.last.linelscr.linel 

int  scr.Iine; 

t 

viprintf 12,  scr.Iine,  0,  CAL.BOD.COLOR,  "Ic  ",  last  line->«odifier)j 
viprintf f2,  scr.Iine,  2,  CAL.TINE.COLOR,  "7.2d:Ild:I2d:7.2d  ",\ 
Iast_line->»eeks,  last_line->days,\ 
last_line->hrs,  last_line->«insl; 
if(last.line->«ins  <  10!  viprintf (2,  scr.Iine,  10,  CAL  TINE  COLOR,  "Ic",    O'lf 
viprintf (2,  scr.Iine, 13,  CAL.FNC.COLOR,  "Is",  last.line-Mnc  ptrlj 
display.detailslscr  line,  last  line) ; 

} 
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I*  Function  to  display  any  line  in  the  calendar  list  at  specified  screen  line  »/ 

void  display.Iinelscr.Iine,  calj) 

int  scr.line; 

CALENDAR  Hal.p; 

{ 

viprint-f (2,  scr.line,  0,  CfiL_H0D_C0L0R,  "7c  ",  cal _p->«odifier); 

viprintf <2,  scr_line,  2,  CAL.TINE.CQLOR,  •Ut:Ut:hi:l2i  ",\ 
cal_p->»eeks,  cal_p->days,\ 
talj-Xirs,  cal_p->«in5); 

if(cal_p->nins  <  10)  viprintf(2,  scr.line,  10,  CAL.TINE.COLOR,  "Ic",   T); 

viprintf(2,  scr.line, 13,  CAL.FNC.COLDR,  "7.s",  cal.p-Mnc.ptr); 

display  detailslscr  line,  cal  p); 
> 

/»  Function  to  get  the  next  event  fron  the  tap  of  the  calendar  list  t/ 

void  get.next.eventll 

{ 

CALENDAR  »event; 

event  -  cal.h; 
•odifier  =  event->«odifier; 
lflsodifier  ==  DELETED! { 
deleted  =  TRUE; 
lelsel 

deleted  >  FALSE; 
} 

eventtise  =  event->tme; 
•eek  '  event->»eeks; 
day    -  event->days; 
hr     =  event->hrs; 
■in    =  event->«ins; 
strcpylevent.type,  event->fnc.ptr); 
event. varl  =  event->a; 
event. var2  =  event->b; 
eventvaro  =  event->cj 
event_var4  =  event->d; 
} 

/♦  Function  to  set  the  visual  calendar  li»its  if  PgUp  is  pressed  H 

void  set  cal  pgupl) 

C 

int  lines.up,  nlines; 

viblank(2,  23,  0,  23,  79); 

fordines.up  =  0;  first.line->prev  !=  NULL  It  lines.up  <  20[\ 

first.line  ■  first_line->prev,  lines_up++l; 
if (lines.up  ==  0){ 

viprintf(2,  23,  0,  B_BLACK+F_BRQHN+INT,  "Is1,  "Vou  are  seeing  the  top  of  calendar  list"); 
lelsel 

for (nlines  =  0,  last.line  =  first. line;\ 
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lastjine->next  !•  NULL  tt  nlines  (  NJ.INES;\ 
lastjine  =  lastjine->next,  nlines+tl; 
display  calendar  ( ;■ ; 
} 
} 

/»  Function  to  set  the  visual  calendar  Units  if  PgDn  is  pressed  */ 

void  setcal  pgdnl) 

{ 

int  line5_do»n1  nlines; 

viblank(2,  23,  0,  23,  7?!; 

fardiMS.dmo  =  0;  last_line->next  !=  NULL  M  lines Jo»n  <  20;\ 

lastjine  =  lastjine- >nest,  lines_doHh++); 
if (linesdOHn  ==  0){ 

viprintf(2,  23,  0,  B_BLflCK+F_BRDWN+INT,  "Is",  "Vou  are  seeing  the  last  \ 
entries  of  the  calendar  list'l; 
Jelsef 

forlnlines  ■  0,  firstjine  =  lastjine;\ 

first_line-)prev  !=  NULL  M  nlines  <  l_UHESj\ 

first_line  =  first  Jine->prev,  nlines++) ; 
display  calendarO; 
1 
} 

I*  Function  to  set  the  visual  calendar  liiits  if  Up  key  is  pressed  »/ 

void  set_cal  1  up() 

[ 

viblank(2,  23,  0,  23,  79); 
iflfirstjine->prev  ==  NULLK 

viprintfl2,  23,  0,  BJLflCKtFJRDNN+INT,  ■Is",  'You  are  seeing  the  top  \ 
line  in  the  calendar  list'); 
>else< 

firstjine  =  firstjine->prev; 
lastjine  ■  lastjine- >prev; 
vicopy(2,  5CRLJ0KN,  0,  21); 
displayjine(f),  first  line) ; 
> 

cal  user  =  first  line; 
} 

/»  Function  to  set  the  visual  calendar  liiits  if  Bonn  key  is  pressed  »/ 

void  set_cal  1  donnll 

{ 

viblank(2,  23,  0,  23,  7?); 
if(lastjine->next  ==  NULLIt 

viprintf(2,  23,  0,  B.BLflCKtF.BRDNN+INT,  "Jj",  "You  are  seeing  the  last  line  \ 
in  the  calendar  list'); 
>else( 

lastjine  =  lastjine- >nest; 
firstjine  =  firstjine- >next; 
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vicopy(2,  SC8LJIP,  0,  21); 

display  line(21,  last  line); 
) 

cal_user  =  last  line; 
} 

It  Function  to  allocate  a  ne»  event  node  and  link  to  the  calendar  list  *l 

void  5chedule(ev_type,  t,  varl,  var2,  var3,  var41 

char  *ev_type; 

unsigned  long  t; 

int  varl,  var2,  var3,  var4; 

( 

CflLENDftfi  *te»p; 

int  i,  unknonn_event; 

unknonnevent  =  lj 
Hit  ''=  tiie.nonK 

iflstrcip(ev_type,  CLOCKJICK)  ==  0){ 

teip  =  <CALENDAR»l«y,ialloclsi:eof!CALENDAR)>; 

te»p->iodifier  =  CLQC1C_M0DIFIER; 

te»p->fnc_ptr  =  CLOCKJICK; 

unknown  event  =  0; 
1 
H(strc«p!ev_type,  PURCHASE)  ==  OK 

teip  =  (CALENDAR»)iiyjulloc(sizeo*(CALENDARII; 

if (user_5peci(ied)i 

te«p->nodifier  =  USER  SPECIFIED; 

Jelsei 

teip->«odifier  =  CLOCK  MODIFIER; 

> 

teip->f,ic_ptr  =  PURCHASE; 

unknown  event  =  0; 
1 
if(strcip(ev_type,  SETUP)  ==  OK 

teip  =  (CALENDARH«y_ialloc(si:eof  (CALENDAR)); 

if  luserspecifiedK 

teip->«odifier  =  USER  SPECIFIED; 

lelset 

te«p->«odifier  =  RE6  MODIFIER; 

} 

te»p->fnc_ptr  =  SETUP; 

unknown  event  =  0; 
) 
if(5trcip(ev_type,  LOAD)  ==  OK 

teip  =  (CALENDAR*)«y_ialloc(si2eof(CALENDAR)!; 

te«p->«odifier  =  RE5J0DIFIER; 

te«p->fnc_ptr  =  LOAD; 

unknown  event  =  0; 
} 
if(strc«p(ev_type,  UNLOAD!  ==  OK 

te»p  =  (CALENDAR«)«y_ialloc(5izeof(CALEND«R>); 
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te«p->i»odifier  =  IMLMDJIDOIFIER; 
te«p->fnc_ptr  =  UNLOAD; 
unknoi»n_event  =  0; 
) 
iflstrcip(ev_type,  HOVE)  ==  OH 

teip  =  ICALENDAfl*)  BY^all  oc  <  si  2  eof  (CALENDAR)  >  5 
te»p->eodifier  =  REGJ10DIFIER; 
teip->fnc_ptr  =  MOVE; 
unknown  event  *  0; 
) 

if  liinkno»n_event!  return; 
teip-ttiie  =  t; 

tiie_to_string,(teip->tiie,  teip); 
teip->a  =  varl; 
teip->b  =  var2; 
teip->c  •  varo; 
teip->d  =  var4; 
for(cal_teip=cal_h;\ 

cal_teip->next  !«  NULL  W  teip-Hiie  >«  cal_teip->next->tiie;\ 
cal_teip=cal_te«p->next); 
if(cal_teip  ==  tal_h){ 

if ical_h->tiie  >  te«p->tise)\ 
cal_te»p->prev  =  teip; 
teip->next  =  cal.teip; 
teip->prev  =  NULL; 
cal  q  =  cal  h  =  cal  teip  "  teip; 
>else{ 

teip->next  =  cal_teip->next; 
teip->prev  =  cal_te«p; 
cal_teip->next->prev  ■  teip; 
cal  te«p->next  =  te«p; 
) 
lelset 

iflcal_teip  «  cal_t!{ 

te«p->prev  •  calteip; 
cal_teip->next  =  te«p; 
teip->next  =  NULL; 
cal_t  =  teip; 
)eUe! 

teip->next  =  cal_teip->next; 
teip->prev  ■  caljeip; 
cal_te«p->next->prev  =  teip; 
cal  teip->next  ■  teip; 
> 
) 
for(cal_teip  =  firstjine,  i=0;\ 

leal .teap  !■  tempi  H  (cal.teip  !»  last_line);\ 
cal_te»p  =  ca)_teip->next,  i*+)j 
if (cal.teip  ==  te«p)( 

iflfinal.line  ==  N.LINES)  riblank(2,  final  line,  0,  final  line,  79);  »/ 
iflfinal.line  <  N.LINE5H 
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} 

return; 


f inal_l i  ne++; 
}«lst{ 

lastline  ■  last_line->prev; 

} 

vicopy 12,  SCRL.DOHN,  i,  f inal_line); 

displayjineli,  tetp); 
J 
if Hfinal.Line  <  N.LINES)  W  (teap  ==  cal_t)!( 

f i  nal_line++; 

displaylinelfinalline,  teap) ; 

last  line  ■  last  Iine->next; 
1 
te«p  =  NULL: 


} 


/*  Function  to  schedule  a  nen  setup  event  if  the  user  requests  for  one  */ 

void  change(ev_type,  varl,  var2,  var3,  var4) 

char  *ev_type; 

int  varl,  var2,  var3,  var4; 

t 

CALENDAR  «te«p; 

DEPT  »te«p_d; 

MACHINE  Heip.»; 

PART. INFO  *te«p_pi; 

unsigned  long  int  t,  tiaex; 

int  waste_5etup; 

int  prevptype,  prevrepeat,  i; 

int  npre; 

int  ok,  def,  «,  d,  h,  •; 

char  ch; 

restore_cursor(); 

viblank(pageno,23,0,23,79); 

vi pr int-F t pageno , 23 , 0 ,B_RED+F_HHI TE*-IMT ,  "Is1,  'Give  schedule  ti«e:  \ 

(Hit  return  for  autDiatic)'); 
viprintf(pageno,23,47,BJLACK*F_6REEN*lNT,  "Is1,  'Keek:1); 
position _cursor (pageno, 23, 53) ; 
ok  =  FALSE; 
»hile!!okl( 

ch  «  getchO; 
iflch  ==  '\r'){ 

done_input(l; 
goto  front; 
) 
iflch  (  '0'  !!  ch  >  TM 

ok  =  FALSE; 
)else( 

ok  =  TRUE; 
fputc(ch,stderrl; 
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*  ■  ch  -  'O'j 
> 
} 

viprintflpageno,23,55,BJLACKtF_6REEN+INT,  "Is",  "day:"); 
po5ition_cursor(pageno,23,60)| 
ok  =  FALSE; 
nhileHokK 

ch  =  getchl); 
i  f (ch  ==  '\r'K 

donejnputl); 
goto  front; 
> 

i f (ch  <   '0'   I!  ch  >  '4'H 
ok  =  FALSE; 

>(tn( 

ok  =  TRUE; 
fputc(ch,stderr); 

d  =  ch  -  '0'; 
> 
> 

h=0; 
«=0; 

viprintf(pageno,23,62,B_BLACK+F_6REEN+IHT,  'W ,  "hour:"); 
h  =  iproipt(pageno,23,67,2,h,0,23)j 
viprintf(pageno,23,70,B_8LACKtF_GREENHNT,  -Is",  ".in:'); 
>  =  iproipt(pageno,23,74,2,«,0,5»); 

5tring_to_ti«e(iti»eK,«,d,h,»); 

if (tiies  <=  ti«e_no»)( 

donejnputd; 

return; 
} 

def  =  FALSE; 
goto  fornard; 

front: 

def  =  TRUE; 
forward: 

iflstrcip(ev_type,  SETUP)  ==  0)( 
»aste_  setup  =  FALSE; 

for(te«p_d  =  dept.h;  tetp.d  !=  NULL  H  te«p_d->dept_no  !•  var2;  te«p  d  =  te«p  d->nesti; 
for(te«pji  =  te«p_d->«ach;  te«p_.  !=  NULL  M  te»p  .->nach  no  !«  varl^  teip  i  =  teip  .->next)' 
prevjitype  =  tetp_«->setup_for; 
prev_repeat  =  te»p_i->repeat; 
if (tejp_i->«state  ==  1){ 

naste  setup  =  TRUE; 
> 
if (»aste_setup)( 

forlteip  =  cal.q;   !te»p  !=  NULL)  H  !((strc«p!te»p->fnc.ptr,  LOAD!  ==  0)  U\ 
lte«p->d  ==  prev_ptype)  H\ 
(te«p->c  ==  prev_repeat));  teip  =  teip->ne*t); 
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if  It Mf  !>  NULLX 

teip->«odifier  =  DELETED; 
if  IdefH 

t  ■  tiie  now+lL; 
)»lti( 

t  =  tiisex; 
> 
} 
lelset 

forlteip  =  cal_q;   Iteip  !=  NULL)  U  ! (Istrc»p(te«p->fnc_ptr,  LDftD)  ==  01  U\ 
fte«p->d  "  prev_ptype)  Hrt 
lte«p->c  «■  prev  repeat));  teip  =  te»p->next); 
iflteip  '--  NULLK 

teip->«odifier  =  DELETED; 
> 
update_«odtfier(teip); 

forlteip  =  cal.q;   Steep  !=  NULL)  il  !((strcip(tetp->fnc  ptr,  LOAD)  ==  0)  U\ 
(teip->a  ==  varl)  «\ 
(teip->b  ==  var2!);  te»p  =  te«p->next); 
if  I  t«p  ==  NULLK 

forltetp  =  cal_q;   (teip  !=  NULL)  Ht\ 

!(lstrcip(teip->fnc_ptr,  SETUP)  ==  0)  H.  (teip->a  ==  var!)  U\ 
(tenp-)b  ==  var2ll;  te«p  -  te»p->next); 
iflteip  ==  NULLK 

if  (IprocessingK 
ifldefK 

t  •  tiie  tiDHtlL; 
lelset 

t  •  tiiex; 
) 
lelset 

forltetp  =  calq;   ItHp  !  =  NULL)  4l\ 

Klstrciplteip-Mnc.ptr,  UNLOAD)  ==  Oi  W\ 
(te«p->a  ==  varl)  il\ 
(te«p-)b  ==  var2)l;  te»p  ■  teip->(iext); 
ifldefK 

t  ■  teip-Hiie; 
lelset 

t  ■  tiiex; 
1 
1 
lelset 

teip->>odifier  =  DELETED; 
ifldefK 

t  •  tiie  now+lL; 
lelset 

t  -  tiiex; 
1 
1 
lelset 

teip->«odifier  =  DELETED; 


99 


IftttfH 

t  ■  teip->tiie; 
>else( 

t  =  tiie*; 
) 
> 
> 

update.aodif ier(te*p); 
userspecified  ■  TRUE; 
seheduletSETUP,  t,  varl,  var2,  var3,  var4); 
user.specified  =  FALSE; 
processing  =  FALSE; 
> 
if tstrcBp(ev_type,  LOAD)  ==  0)( 

for (te»p_d  =  dept_h;  teipj  !«  NULL  U  teipjf->dept_no  !■  var2;  teip.d  =  teip  d->nextl 
for(teip_pi  =  tei»p_d->part_infoj  teipji   !=  NULL  ii.  !(te«p_pi->ptype  ==  var4  U\ 
teip_pi->repeat  ==  var3l;\ 
teip_pi  -  teip_pi->ne«t)j 
iflteipji  —  NULL)  print_errorp(); 
n_pre  •  niach  proc  ptypEfteup  d,  var3,  var*); 
ifldeflt 

t  ■  ti«e_no»  ♦  1L; 
lelset 

t  «  tiaex; 
) 
H(teip_pi->pre  >=  njreK 

schedulelLOAD,  t,  varl,  var2,  var3,  var4); 
>tllt< 

viprintf Ipaqeno,  23,  25,  B_BLACKt-F_BRQHN+INT,  'Is1,  \ 
"Not  enough  parts  in  the  pre  area'); 
> 
) 


} 


I*  Function  to  update  the  lodifier  in  the  calendar  xindoM  W 
void  update_«odifier(teip) 
CALENDAR  »teip; 
{ 

int  i; 

for(i=0,  cal_user  =  f irst_line; \ 

cal_user  !«  teip  %.<,  cal_user  '=  last_linej  cal_user  =  caljiser->next,  itt); 
iflcaluser  -=  teipH 

display  lined,  teip); 
} 


/»  function  to  delete  the  processed  event  froi  the  calendar  «/ 

void  del  event  (roi  call) 

t 
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CALENDAR  *event; 

event  =  cal_hj 
cal_q  =  event->next; 
cal_h  ■  event-!next; 
cal_h->prev  =  NULL; 
if(ca!_teap  ==  event) { 

cal  te»p  =  event->next; 
> 
iflcaljiser  ==  eventlt 

cal  user  =  event->next; 
> 
if(first_Iine  ==  event)! 

HrsMine  =  first_line->next; 

vicopy(2,  SCRL.UP,  0,  final .line); 

viblank(2,  final.line,  0,  final.line,  79); 

HKfinal.line  ==  N_LINESI(<4(last_line-;>next  !*  NULUH 
last.line  =  last_line->nexti 
disp  last  linetfinal  line); 

>else{ 

final  line—; 

) 
) 
free(event); 


} 


/»  Function  to  dispose  calendar  before  ternination  of  the  sinulation  H 

void  dispose  calendar!) 

t 

CALENDAR  Heap; 

forlteap  =  cal_h->next;  te»p->next  !«  NULL;  teup  =  te»p->next){ 

freeltenp->prev); 
) 

free(teip-)prev); 
freeltenpl; 
teap  =  cal.h  =  cal_t  •  cal.q  =  cal.user  =  cal_te»p  =  NULL; 

/*  Function  to  edit  the  calendar  H 

void  edit_calendar() 

{ 

int  k; 

dran_nenu£7); 
utiilillH 

iflkbhitllH 

k  =  getkeyl); 
SHitchlkX 

case  'd': 
case  'J'l 
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case  K_ALTD: 

delete_eventO; 

break; 
case  'a': 
case  'ft': 
case  KJLTAi 

userschedulell; 

break; 
case  K.ESC: 

drait_»enu(?) ; 

return; 
default: 

break; 


} 


It  Interface  for  user  scheduled  events  »/ 

void  user.scheduleO 

t 

char  ch; 

int  k; 

draN_ienu(10); 
KhiltMX 

iflkbbitOH 

k  =  getkeyll; 


snitchlkX 

case  K.ESC: 

if Ipageno  ==  0)( 

done.inputU; 
draw  aenulll); 
) 
if  Ipageno  ==  2)t 

done.inputl); 
draw  lenul?); 
) 

return; 
break; 
case  Vl 
case  Ti 
case  K_ALTW: 

»rite_5i«_5tate(); 
break; 
case  'p'l 
case  'P': 
case  K.ALTP: 

user_purchase(}; 
break; 
case  V: 
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case  'S': 
case  K.ALTS: 

user_setup(); 

break; 
case  Tl 
case  'L': 
case  KJtLTL: 

userJoadO; 

break; 
case  '•': 
case  'n": 
case  K_flLTH: 

user_ioveO; 

break; 
default: 

break; 
> 
} 
) 
} 

It  Function  to  lark  an  event  as  deleted  if  the  user  requests  1/ 

void  delete  event I) 

t 

int  k,  scrjine; 

draH_ienu(8); 
cal_user  =  firstjine; 
scr.line  •  0; 

»hiie(cal_user->sodifier  ==  CLOCK  JWDIFIERK 

iflscrline  <  finallineH 

scrjine**; 

caluser  ■  cal_user->neKt; 
HI  set 

set  cal  1  do«n(); 
> 
) 

vichgatt(2,  scrjine,  0,  80,  BLNK); 
KhileUK 

iflkbhitOK 

k  =  getkeyll; 
nitcittkli 

case  K.PBUP: 

viblank(2,  23,  0,  23,  79); 
vichgattl2,  scrjine,  0,  80,  BLNK); 
setcalpgup!); 
scrjine  ■  0; 
cal_user  =  firstjine; 

»hile(lcal_user->iodifier  ==  CLOCK  JI0DIFIER)  tt\ 
(cal_user->prev  !«  NULLH1 
set_calJ_upO; 
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} 

ifl(cal_u5er->prev  ==  NULL)  W\ 

lcal_user->iodifier  ==  CLOCK  MODIFIER! > C 
viblank(2,  23,  0,  23,  79); 
viprintf(2,  23,  15,  B_BLflCK*FJRDNN+INT,  "7.s",\ 
"No  nore  deletable  entries  above  this"); 
»lule(cal_ii5er->«odifier  ==  CLOCK  .MODIFIER)  { 
iflscr.line  <  Hnal.lineK 
5cr_line**j 
cal.user  =  cal  user->next; 


>else{ 
) 


set.cal.l.donnll; 


) 
> 


victigatt!2,  scr.line,  0,  80,  BLNK); 
break; 
case  K.P6DN: 

viblank(2,  23,  0,  23,  79); 
vichgattl2,  scr.line,  0,  BO,  BLNK) ; 
set.cal.pgdn  f I ; 
scr.line  -  final. line; 
cal.user  =  last.line; 

Hhi 1 e ( (cal _user->«odi -f i er  —  CLOCK.MODIFIER)  m 
(cal.user-)neit  !■  NULLm 
iflscr.line  <  final.line.K 
scr.line+t; 

cal  user  =  cal  user->next; 
)ll«tl 

set  cal  1  dowiO; 
) 
) 
ifl(cal_user->ne«t  ==  NULL!  S*\ 

lcal_user->iodifier  ==  CLOCK  MODIFIER) )t 
viblank(2,  23,  0,  23,  79); 
viprintf !2,  23,  15,  B_BLaCK*F_8R0»N*INT,  -2s1, \ 
"No  lore  deletable  entries  below  this"); 
»hile(caljiser->iodi<ier  ==  CLOCK.MODIFIER) ( 
iflscr.line  >  OH 
scr.line— ; 

cal  user  =  cal  user->prev; 
)else( 

set  cal  1  upl); 
) 
) 
) 

vichgattl2,  scr.line,  0,  BO,  BLNK); 
break; 
case  K.UP: 

viblank(2,  23,  0,  23,  791; 
iflscr.line  >  OK 
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vichgatt (2,  scrjine,  0,  80,  BLNK) ; 

scrjine--; 

caljiser  =  cal_user->prev; 
»hile(lcal_user-).odiHer  —  CLOCK  JWD1FIERI  H\ 
(cal_user->prev  !=  NULLI){~ 
iflscrjine  >  OH 
scrjine-- ; 

cal  user  =  cal  user->prev; 
Ma! 

set  cal  1  upl); 
) 
} 
ifl(cal_user->prev  ==  NULL)  H\ 

(ca]_user->iodifier  ==  CLOCK  MODIFIER) H 
viblank(2,  23,  0,  23,  79); 
viprintfl2,  23,  15,  B_BLBCK*FJROHNHNT,  "Zs',\ 
"No  »ore  deletable  entries  above  this") ; 
»bile(cal_user->«odifier  ==  CLDCKJ10DIFIERH 
iflscrjine  (  HnalJineK 
scr  line**; 

caljiser  =  cal  user->next; 
ill set 

set  cal  1  down  ( ) ; 
} 
> 
} 

vicltgattl2,  scr  line,  0,  80,  BLNK); 
Jelse! 

vichgatt(2,  scrjine,  0,  80,  BLNK) ; 
Mt.Ml.l_Bp  (I  j 

nhile((caI_user->iodifiar  ==  CLOCK  J10DIFIER)  V!t\ 
(cal_user->prev  '  =  NULL!) [ 
set  cal  1  up(); 
) 
if((cal_user->prev  ==  NULL)  tt\ 

(cal_user->iiodifier  ==  CLOCK  MODIFIER) ) { 
viblank(2,  23,  0,  23,  79) ; 
viprintf <2,  23,  15,  B_ELACK+F_BFtOHN+lNT,  "Is*,\ 
"No  «ore  deletable  entries  above  this'); 
«hile(cal_user->todifier  •*  CLDCKJ10DIFIER) { 
iflscrjine  (  finaljinelt 
scrJine+»; 

cal  user  =  cal  user->next; 
)else( 

set  cal  1  do»n!); 
> 
} 
) 
vichgattl2,  scrjine,  0,  80,  BLNK) ; 

break; 
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case  ■  _DONN: 

'  viblanM2,  23,  0,  23,  7?)j 
if lscr_line  (  f inalline) C 

vichgattt2,  scr.line,  0,  80,  BLNK) ; 
scr_line++; 

cal.user  =  cal_user->next; 
whileUcal .user-modifier  ==  CL0CK.K0DIF1ER)  M\ 
Icaljiser-kent  !=  NULL))f 
iflscr.line  <  final.lineH 
scr_line++; 

cal.user  =  cal  user-J-next; 
lllit! 

set  cal  1  domll; 
> 
) 
ifl(cal_user->ne>:t  ==  NULL)  U\ 

lcal_user->§odifier  ==  CLOCK  MODIFIER) ) { 
viblank(2,  23,  0,  23,  79); 
viprint-f (2,  23,  15,  B.BLACK.tF.BROKNtlNT,  *Zs",\ 
"No  (ore  deietable  entries  belo*  this") ; 
«hile(cal_user->iodifier  ==  CL0CK.NODIFIER) ( 
iflscr.line  )  OH 
scrline — ; 

cal.user  ■  cal  user->prev; 
)tlit< 

set.cal.l.upll; 


lelseC 


) 

vichgatt(2,  scr.line,  0,  80,  BLNK); 

vichgatt!2,  scr.line,  0,  80,  BLNK!; 
set.cal.l.donnO; 

nhilellcal.user-Hodifier  ==  CL0CKJ0D1F1ERI  tt\ 
lcal_user->ne*t  !=  NULLIH 
set  cal  1  oonnli; 
) 
ifl(cal.user->next  ==  NULL)  U\ 

(cal.user->iodifier  ==  CLOCK  MODIFIER) >{ 
viblank(2,  23,  0,  23,  79) j 
viprintfl2,  23,  15,  B.BLACK+F.BRONNt-INT,  "It"^ 
"No  «ore  deietable  entries  belo*  this"); 
»hile(cal_user->riodifier  ==  CLDCK.HODIFIERK 
iflscr.line  >  OK 
scr.line—; 
cal.user  =  cal_user->prev; 


>else< 
) 


set.cal.l.upll; 


) 

) 
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vichgatt!2,  scr  line,  0,  80,  BLNK); 
} 

break; 
case  K_ESC: 

viblank(2,  23,  0,  23,  79) ; 
vichgattl2,  scr.line,  0,  80,  BLNK) ; 
dra»_temi(7); 
return; 
case  K.DEL: 

cal_user-:-»Ddifier  =  DELETED; 
display_line(scr_line,  caljiser); 
vichgatt (2,  scr.line,  0,  80,  BLNK); 
break; 
case  K.INS: 

iflstrciplcal.user-Mnc.ptr,  SETUP)  "  61! 

»iblank(2,  23,  0,  23,  79); 

viprintf(2,  23,  0,  MSB.COLBR,  ■&•,  \ 
'Insert  setup  through  AddEvent"! ; 
>else{ 

cal_user->aodifier  =  RE6.HDD1FIER; 

display.linetscr.line,  cal_user); 

vichgatt 12,  scr.fine,  0,  80,  BLNK); 


} 

break; 

default: 

break; 
) 
j 

} 

viblank(2,  23,  0,  23,791; 
} 

/*  Function  to  write  the  sinulation  state  of  the  calendar 

list  */ 

«rite_cal_listlfilenaie! 

char  filena«e[151; 

r 

FILE  tfp; 

char  s  =  '   '; 

ifllfp  =  fopenlfilenaie,  "at"])  ==  NULLK 

viprintf(pageno,23,55,B_RED<-F_k!HITE+INT,  "Zs",  "bad  filenaie"); 

hide_cursor(); 

return (0); 
} 

fprintflfp,  "\n  \n"); 

fprintflfp, "Zs  \n  \n","CALENDAR_LIST:'); 

fprintflfp, "Is  \n","»odifier:         tiie:»eek:day:hrs;iins:event  function  ptr:a      b      c      d") 

forlcal.teip  =  cal.h;  cal.teip  !•  NULL;  cal.teap  =  cal.te«p->next>{ 

iflstrc»p(cal_teip->fnc_ptr,"clock_tick")==0)f 

fprintflfp,  "Zc  Zc  Zc  Zc  Z9Iu  Z3d  Z4d  Z3d  7.3d  Zc  Zs  Zc  Zc  Zc  Z3d  Z3d  Z3d  Z3d  \n",\ 
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s,s,s,cal_te«p->«odifier,cal_te«p->tiie,cal.teip->iieeks,cal_te>p->days1\ 
cal_teitp->hrs,cal_te«.p->iins,s,cal_teip->fnc_ptr,5,s,s,cal  tetp->a,\ 
cal_te«p->b,cal  te»p->c,cal  te»p->d); 

1 

if(strcip(cal_teip->fnc_ptr, 'purchase"^)! 

fprintf (fp,  "ZcZcZcZc  Z91uZ3dZ»dZ3dZ3d  ZcZsZcZcZcZc  Z3dZ3dZ3dZ3d\n',\ 

S|S,s,cal_teip->«odifier,cal_te«p-Hi»e,cal_teip->iieeks,cal_teip->days,\ 
cal_te«p->hrs,cal_te«p->«ins,s,cal_te«p->fnc  ptr,s,s,s,s,cai  teip->a,\ 
cal_te«p->b,cal  te»p->c,cal  te»p->d); 

) 

if (strc«p(cal_te»p->fnc_ptrI* setup" )==0H 

fprintf  (fp,  "Ic&Iflc  Z91uZ3dZ4dZ3dZ3d  ZcZsZcZcZcZcZcZc  Z2dZ3dZ3dZ3d\n\\ 

s,s,s,cal_te«p->iiodifier, cal  _teip->ti«e,cal_teap-:' weeks,  cai_te»p->days,\ 
cal_teip->hrs,cal_te«p->ains,s,cal_teap->fncj)tr,s,s,s,s,s,s,cai  te§p->a,\ 
cal_te»p->b,cal  teip->c,cal  te»p->d)j 

) 

iflstrc»p(cal_teip->fnc_ptr,"load")==OK 

fprintflfp,  "ZcZcZcZc  Z91uZ3dZ«dZ3dZ3d  ZcZsZcZcZcZcZcZc  Z3dZ3dZ3dZ3d\n',\ 

s,s,s,cal_te«p->K>difier,cal_teip->tiie,caI_teip->ieeks,cal_teip-:>days,\ 
cai_teip->hr5,cal_teip->ains,s,cal_te«p->fnc_ptr,s,s,s,s,s,s,cal  t»p->a,\ 
cal  teap->b,cal  teip->c,cal  te»p->d)j 

) 

if  (strcip  (cal_te»p->fnc_ptr ,  "unload")"!))  { 

fprintf (fp,  "ZcZcZcZc  Z9hZ3dZ4dZ3dZ3d  ZcZsZcZcZcZcZc  Z3dZ3dZ3dZ3d\n",\ 

siS,5,cal_te«p->Mdifier,cal_teap->ti«e,caI_t6«p->»Beks,cai_teip->day5,\ 
cal_teip->hrs,cal_te«p->tins,s,cal_te«p->fncj>tr,s,5,s,s,s,cal  te«p->a,\ 
cal_te«p->b,cal  teap->c,cal  te«p->dl; 
) 

iflstrc«p(cal_teip->fnc_ptr,"iiove")==0)( 

fprintflfp,  "ZcZcZcZc  Z9*luZ3dZ4dZ3dZ3d  ZcZsZcZcZcZcZcZc  Z3dZ3dZ3dZ3d\n",\ 

StS,s,cal_teip->iodifier,cal_teip->tiae,cal_te«p->«eeks,cal_te«p->days,\ 
cal_tetp->hrs,cal_te«p->nins,s,cal_te«p->fncjjtr,s,5,s,s,5,s,ca]  teap->a,\ 
cal_teip->b,cal_te«p->c,cal_tetp->d)j 

} 

fdose(fp); 
returndt  j 
} 

/»  Function  to  read  the  nen  similation  state  of  the  calendar  list  «/ 
read  cal  list(fp) 
FILE  »fp| 
C 

CALENDAR  iteip; 

int  leeks,  days,  hrs,  »ins; 

long  unsigned  tiae; 

int  a,  b,  c,  d,  i; 

char  fnc_ptr[151,  modifier; 

fscanflfp,  "Z»s"); 
fscanflfp,  "Zts'lj 
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f scant (f p,  'I«s"); 

cal_q  ■  cal_h  =  cal.t  «  cal_user  =  cal_teap  =  NULL; 

cal.q  =  ICALENDARHay.ialloclsijeoflCALENDAR)); 

cal_h  s  cal_t  ■  cal_user  =  cal_teip  -  cal_q; 

fscanflfp,  "lis",  nodifier); 

fscanflfp,  "lid",  Ictiae) ; 

fscanflfp,  "Id",  iweeks); 

fscanflfp,  "Id",  Mays); 

fscanflfp,  "Id",  Shrsl; 

fscanflfp,  "Jd",  liins); 

fscanflfp,  "Is",  fnc_ptr); 

fscanflfp,  '16',  ira); 

fscanflfp,  "Id",  tbl; 

fscanflfp,  "Id",  id; 

fscanflfp,  "Jd",  Mi; 

iflstrcipffnc_ptr,"clock_tick")==OH 

calJi-Hncjrtr  =  CLOCr  TICK; 
J 
iflstrc«p  If  ncjir, 'purchase')"!))  < 

cal.h-Mncjtr  >  PURCHASE; 
) 
if(strcaplfnc_ptT,  "setup"  )==0H 

cal.h-Mnc  ptr  =  SETUP; 
> 
iflstrc»ptfncj>tr,'load")==0)( 

cal_h->fnc  ptr  =  LOAD; 
} 
if  Istrcip  If  ncjtr,  "unload"  )==0){ 

cal.h->fnc_ptr  =  UNLOAD; 
j 

if (strcip(fnc_ptr,'«ove')==0)( 
cal.h-Mnc.ptr  =  HOVE; 
) 

cal_h->iodifier  •  lodifierlOl; 

cal  J->tiie  ■  tiae; 

cal_h->neeks  ■  weeks; 

cal_h->days  •  days; 

cal_h->hrs  ■  hrs; 

cal_h->iins  =  tins; 

cal_lt->a  =  a; 

cal  V>b  =  b; 

cal_b->c  ■  c; 

cal"h->d  =  d; 

cal_h->orev  =  NULL; 

teap  =  cal_tt; 

forli=0;  fscanflfp,  "His",  aodifier)   !=  EOF;  i»*)( 

teip->next  =  (CALENDARt)iy_ialloc(sizec.f (CALENDAR)); 

teip  =  tetp->next; 

teip->prev  =  cal_t; 

cal_t  •  teap; 
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teip->todifier  ■  icdifierlOl; 

fscanflfp,  'lid  'id  Id  Zd  'id',  Itiie,  *»eeks,  Idays,  &hrs,  Wul| 

fscanflfp,  "Is",  (nc_ptr)j 

fscanflfp,  "Id  Id  Id  "id",  4a,  fcb,  ic,  Ml; 

ifistrcip(fnc_ptr,  "docket  ick*)==0)t 

tenp->fnc_ptr  =  CLOCKJICK; 
} 
if (strcip(fnc_ptr, "purchase" )==OK 

tetp->fnc_ptr  =  PURCHASE; 
) 
if  (strc«p(fnc_ptr,  "setup"  )~0K 

te«p->fnc  ptr  =  SETUP; 
) 
iflstrciptfncjtr/load'^OH 

te«p->fnc  ptr  =  LOAD; 

» 

if l5trcip(fnc_ptr,"unload*)==0K 

teip->fncjtr  =  UNLOAD; 
} 
if lstrc«pffncjitr,"sove")==0)( 

teip->fnc_ptr  =  MOVE; 
> 

te«p->ti»e  =  tite; 

teip->neeks  ■  weeks; 

teip->days  ■  days; 

teip->hrs  =  tirs; 

teip->«ins  ■  tins; 

te§p->a  ■  a; 

teip->b  =  b; 

teip->c  =  c; 

teip->d  ■  d; 
} 

cal.t->next  =  NULL; 
teip  ■  NULL; 
return(l); 
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•include  (stdio.h) 

•include  "user\opt.h' 

•include  "user\define.h" 

•include  "userWi.h" 

int  change, varslvoidl; 

/♦  Function  to  change  the  variables  on  the  zooi  «indo«  »/ 

int  change  varsO 

{ 

INT.KRITE  *ptr; 

VAR.LOCATION  Hoc; 

int  tin,  lax; 

loc  =  var_location; 
ptr  «  intjirite; 
if(tiie_no»  !=  OL) < 
loc++i  ptrtt; 
loct+i  ptrt+i 
) 
»hiIe(tloc->var!( 

viblankd,  23,  0,  23,  79); 

viphntm,  23,  0,  N56.CDL0R,  "Is",  "Current  value  of'l; 
viprintfd,  23,  16,  BSS.COLQR,  'Is',  loc->varl; 
viprintfd,  23,  35,  B.RED*F_NHITE+INT,  "Md",  tptr-)valuel; 
viprintfil,  23,  42,  NS6.CQLQR,  "Is',  "Enter  new  value:"!; 
vichgattll,  loc->ro«,  loc->col,  loc->n_cols,  BLNKI; 
■in  =  0; 
•at  =  999; 

if((strc»plloc->var,  "days_per_neek")l  ==  OH 
•in  •  1; 
•ai  =  7; 
) 

if((strc«p(loc->var,  "hrs_per_day"ll  ==  OH 
•in  =  1; 
•a>  ■  2*; 
} 

if l(strc»p(loc->var,  "otheropeipense'D  =  OK 
•in  =  0; 
•an  ■  9999; 
} 

>ptr->value  =  ipro«ptd,  23,  59,  loc->n_cols,  »ptr->value,  lilt,  «a«>; 
vichgattll,  loc->ro»,  loc-kol,  loc->n_cols,  BLNKI; 
ifl(strc»p(loc->var,  "days_per_«eek")l  ==  OK 

viprintfil,  loc->ro»,  Ioc->col,  B_RED*F  UMTEHNT,  "lid",  *ptr->valuel; 
>else( 

if l(lstrc«p(loc->var,  "hrsjerjiay'))  "  0)   !!\ 

l(strc«p(loc->var,  "•in.inv")  ==  0>)>( 
viprintfd, loc->ro«,Ioc->col,B  REB+F  HHITEtINT,"7.2dVptr->value); 

ifi(strc«plloc->var,  "other_op_expense")l  ==  OK 
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viprintfll,  loc->rm,  loc->col,  B.REDtF.HHITE+MT,  \ 
'W,  «ptr->valuel; 
)el»{ 

viprintfll,  loc->ro»,  loc->col,  B_RED*F_«H1TE+INT,  \ 
"X3d ' ,  »ptr->valuelj 
) 


} 
} 

loc+t; 

> 

position_ctirsor!l,  23,  0); 

hide^cursorO; 

viblankd,  23,  0,  23,  7?> } 
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iinclude  "user\define.h' 

/I  Initialize  norking  hours  and  days  H 
hrs_per_day  =  24; 
daysperneek  -  7; 


/»  Initialize  other  variables  H 
«in_inv  =  2; 
purchase_Iot_size  =  5; 
transfer.batch  =  1; 
•at_handling_cnst  *  1; 
other_op_expense  =  200; 


/*  11  per  transfer  H 
/*  1200  per  day  »/ 


/•  Initialize  the  integer  write  structure  */ 


INTJIRITE  int.nritet]  =  (        ■hrs.perjay". 

ihrsjierday, 

■daysjer^eek", 

&days_per_Neek, 

"linjnv". 

iriinjnv, 

"purchase_lot_size", 

ipurchase.iot_5ize 

"transferjiatch", 

fctransferjatch. 

"iat_handIing_cost°, 

&sat_handling_cost 

"other_op_expenseu, 

fcother  op  expense, 
'1 

/*  Initialize  the  screen  location  structure  «/ 

VAR_L0CflTION  var. location!]  =  t           'hrs.perjay1 

2,    B,  17, 

■days_per_»eek', 

I,  10,  18, 

Biin_inv", 

2,    3,  77, 

"purchasejotsize", 

3,    5,  76, 

•transfer  Jutch', 

3,    7,  76, 

■«at_handIing_costD, 

3,    9,  76, 

"other_op_expenseD, 

4,  11,  75, 
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tinclude  <stdio.h> 
♦include  "userVopt.h" 
•include  "user\vi.h" 
•include  'user\5td.h* 

/»  Function  to  freeze  the  siiulation  */ 

int  freeze!) 

{ 

int  ro»,  col; 

DEPT  *teip  d; 

MACHINE  »teip_»; 

PART. INFO  tteip.pi; 

freezed  =  TRUE; 

dra»_tenu(5); 

forlteipj  =  dept.h;  teip_d  !«  NULL)  teipd  =  tetp_d->neit)( 

for(teip_«  =  teip_d->iach;  te«p_i  !«  NULL;  tetp.i  =  teip_»->neKt!( 
if((teip_i->»state  "  li:i(te«p_i->istate  ==  2)l< 

vichgattIO,  tetp.i-)roN»l,  teip_»->coM,  1,  BLNK); 

} 

forltetp_pi  =  teip_d->part_info;  tejpji   !  =  NULL;  teip_pi  =  teip_pi->nextH 
ro«  «  teip_pi->ro«; 
col  =  teip_pi->col; 
viprintflO,  ro«,  col*4,  STINE.COLOR,  "23d", \ 

stiie[te«p_pi->repeatl[teip_pi->dept_no-lHteip  pi->ptype-ll); 
viprintflO,  ron,  col*12,  NTI«E_C0L0R,  "T.3d",\ 

itiie[te«p_pi->repeat][te«p_pi->dept_no-n[teip_pi->ptype-lJ); 

) 

stop  zooi  depti); 
) 

I*  Function  to  resuie  the  siiulation  »/ 

int  unfreeze!) 

{ 

int  rod,  col; 

DEPT  Heip.d; 

IflCHINE  »teip_i; 

PART.INFO  »teip_pi; 

freezed  =  FALSE; 

dra»_ienu(6); 

forlteip.d  =  deptj;  te»p_d  !=  NULL;  tenp.d  =  te§p.d->next){ 

for(te»p_i  =  teip_d->iach;  teip.i  !«  NULL;  teip_i  =  teap_a->nent) ( 
if((te«p_i->istate  ==  l)!!(teip_»->istate  ~  2))< 

vichgattIO,  teip_i->ro»+l,  te«p_i->col+l,  1,  BLNK); 

) 

forlteipjji  =  teip_d->part_info;  teip.pi   !«  NULL;  teip.pi  >  te«p.pi-)nextl{ 
ro»  =  teip_pi->ro«; 
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col  ■  te§p_pi->col; 

viprintflO,  raw,  colH,  STIHE_COLQR,  *Is", 
viprintf (0,  ro»,  col*12,  MTIHE  COLOR,  "It", 
} 

} 

start_20o«_deptO; 


/#  Function  to  stop  the  simulation  »/ 

int  stop_sii() 

t 

DEPT  *te«p_di 

NACHINE  *teip_t; 


for(te«p_d  =  dept_h;  teip_d  '=  NULL;  teap_d  =  teip_d->nextK 

for(teip_«  >  teip_d->«ach;  teip_i  '.-  NULL;  tetp_i  ■  te«p_i->next){ 
ifl(teip_«->«state  ==  ill  I (te«p _»->istate  ==  2)11 

mivichkattlO,  teip.i->ro«*l,  teip_i->col»l>  S  BLNK)  "  BLNKi! 

vichgattfO,  teip  i->ro»»l,  teip  i->col*l,  1,  BLNKI; 
) 
1 
) 
J 
stop_:ooi_dept(); 


) 


/»  Function  tD  start  the  simulation  */ 

int  start_si«() 

{ 

DEPT  «teip  d; 

MACHINE  »te«p_i; 

forltetpd  =  dept_h;  teip_d  !«  NULL;  tetpd  =  teap_d->itnt)( 

forltetpi  =  te»pJ->Mch;  teip_t  !=  NULL;  te«p_«  •  te»p_«->next){ 
ifl(teip_i->«state  ==  if ! I (teip_«->»state  ==  2>l( 

if KvichtattlO,  te«p_»->ro»M,  teip_t->col*l)  I  BLNK!   !=  BLNKK 

vichgattIO,  teip  i->ro«+l,  te«p  i->col+l,  1,  BLNK); 
} 
) 
> 
) 
start_:ooB_deptO; 
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•include  <stdia.h> 
•include  "useAopt.h' 

DEPT  tteipj,  *te«p_last_d; 

MACHINE  *tenp_«: 

PARTJNFO  Hespjii,  »teip_last_pi; 

RAN  »teip_ra»; 

PRODUCT  »te»pjjrDd; 

/•  --  functions  —  »/ 
int  read_data (char*) ; 
int  read_5i»_state(char*! ; 

/»  Function  to  read  input  data  froi  the  file  specified  by  the  user  »/ 
int  readjatalfilenaee) 
char  tfilenaee; 
{ 

FILE  »fp; 

int  result,  ext  =  0; 

int  i , j ,k; 

char  pchar; 

int  dept_no,  njachines,  n«ach_in_use,  ro«,  col; 

int  repeat; 

int  ra»_iat_no,  cost,  prod_no,  price,  li»it,  ptype,  pjndex; 

int  te«p_cash,  teipexpense; 

for(i=0;  filenaieti)  !■  '\0';  i**){ 

iflfilenanelil  ==  '.'I  est  =  1; 
} 
if  (!ext)( 

strcatlfilenaie,  ".sii"l; 
} 
iff  If  p  -  fopenlfilenane,  "r"))  ==  NULLH 

printfl'Js  :  bad  file  naie\n",  fi!ena«e); 

exit(O); 
} 

fscanflfp,  "Us  Id",  lteip_cashl; 
cash  =  (long)te«p_cash; 
fscanflfp,  'Us  Id",  Itetp .expense); 
expense  =  (longlteipexpense; 
fscanflfp,  -Us  U  Us  Id",  in.depts,  In.ptypesl; 
fscanflfp,  "Us  Id",  Snax.ops); 
fscanflfp,  "Z»s'l; 
forli=0;  i  <  n_ptypes;  i++)I 

for(j=0;  j  <  iax_ops*l;  j++H 

fscanflfp,  -Zd",  IrouteCilljl); 

J 
} 

fscanflfp,  '2»s  U  Us  Id",  (routing  ro«,  Irouting  col); 
deptji  =  IDEPTHiy_ialloclsizeof(DEPf)); 
te«p_d  =  deptj; 
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for(i=0;  i  (  njiepts;  l**\[ 

fscan*(fp,  'Its  Jd",  Vdept.no); 

fscanflfp,  'Its  Id  Its  Id',  ^machines,  iniachjnjisel; 

fscanflfp,  'Its  Id  Its  Id',  iron,  scol); 

teep_d->dept_no  ■  deptjio; 

tesp_d->naachines  =  nsachines; 

tetp,d->n«ach_in_use  ■  niactMn_use; 

te«p_d->ro«  •  ro«i 

tetpjj-kol  ■  col; 

teipj->iach  =  (MCHME<)iy.ulloc(sizeo<<IMC>IINE])j 

tetp_t  =  te§p_d->«ach; 

teip_«->iach_no  ■  1; 

te«p_i->row  ■  roH; 

te»p_i->col  =  col; 

tetp_i->repeat  ■  0; 

Ufp"i->s8tup_for  =  UN_UTILI2EDj 

iap_part_type(teip_i->setup_for,  ipchar); 

te»p_i->setup_forJnj:har  ■  pchar; 

te»p_a->istate  *  0; 

te«p_i->user_stopped  ■  0; 

teap_i->state_change_ti»e  =  OL; 

te«p_i->U«e_idle  ■  OL; 

teip_i->ti«e_setup  ■  OL; 

te«p_i->tiie_busy  =  OL; 

for < j=l ;  j  (  machines;  jtt){ 

teip_i->ite«t  =  (NACHIN£*)«y_«illoc (siseof (MACHINE) ) ; 

tetp_i  =  te«p_i->next; 

tetp_»-)«ach_no  =  j+1; 

ro»  «  2; 

te«p_i-:>ro»  =  ron; 

te«p_i->col  ■  col; 

tetp_i->repeat  =  0; 

te«p_i->setup,for  =  UH.UTILIZES; 

■ap_part_type(te»p_«->setiip_for,  Ipchar); 

teip_i->setup_for_in_char  =  pchar; 

teip_i->istate  =  0; 

tetp_a->user_stopped  =  0; 

teip_i->state_change_tiie  =  OL; 

teip_i->Uie_idle  =  OL; 

teip_i->tiie_setup  =  OL; 

te«p  i-Hiie  busy  •  OL; 
) 

te»p_i->next  =  NULL; 
teip.i  =  HULL; 

teip_d->partJnfo  =  (PRRT_INFOtl»y_tallac<si:eof  (PARTJNFO)); 
te«pj>i  -  teip.d->part_in(o; 
ro»  ■  tetp_pi->ro«  =  teip_d->ro«*l; 
col  «  teipj>i->col  ■  te»p_d->col-9; 
te§p_pi->dept_no  =  dept_no; 
te»p_pi->pre  =  0; 
teep_pi->post  ■  0; 


117 


for(j=0;  j  <  n.ptypes;  it+'t 
repeat  =  0; 
for (k=0j  k  <  mx  ops;  k*+l{ 

iflrouteljHk]  ==  dept.noK 
te«p_pi->ptype  =  j+l; 


teap_pi->repeat  =  repeat; 

■ap.part.typelteap.pi-iptype,  tpchar); 

teap_pi->ptype.in_cltar  =  pchar; 

teap.last.pi  =  teitp.pi; 

teap_pi->next  =  (PART_INFO*)«y_iialloc (sizeof IPARTJNFOH 

teipji  =  te«p_pi->next; 

TQN++; 

teip_pi->r<m  ■  ron; 
te«p_pi->col  =  col j 
te«p_pi->dept_no  =  deptjio; 
teip_pi->pre  =  0; 
teip_pi->post  =  0; 
repeat**; 


} 
} 
) 

freeite»p_pi!; 
te«p_last_pi->next  =  HULL; 
te»p.last_pi  =  NULL; 
teip_last_d  =  temp_d; 

teip.d->nest  =  CDEPT*)ay_aa] lot (sizeof (DEPTt  > ; 
te«p  d  =  te«p  d->next; 
) 

freeiteipjl; 
teip_last_d->next  =  NULL; 
teip.last.d  =  NULL; 
fscanflfp,  "7.*s"l; 

fscanflfp,  "Us  Id  I»s  Id",  lra»_iat_ro»,  trail  ait  col); 
fscanflfp,  "I*s  Id",  in_ra«_iat>; 
fscanflfp,  'I»s'); 

ra»_aat  =  IRAH«)«y_«alloc(sizeof IRAK)); 
teip_ra»  =  ra»_iat; 

fscanflfp,  "Id  Id',  &ra»_aat_no,  kost!; 
te»p_ra»->rai»_  jat.no  =  ran_iat.no; 
te«p.ra«->cost  =  cost; 
roil  =  teap_ra»->roii  =  raH_«at_roii+l; 
col  «  tetp_ra«->col  =  ra»_«at_col; 
for(i=l;  i  <  n_ra«_§at;  _«). 

te»p_ra«->next  =  (RA>*)«y_»alloclsizeof(RAtl)!j 

te»p_ra»  =  teap_ra»->next; 

fscanflfp,  -Id  id",  4rait.aat.no,  4cost); 

te»p_ra»->raii_»at_no  =  ran_aat.no; 

teap_raii->cost  =  cost; 

te«p_ra«->ro»  =  ++row; 

te«p_ra«->col  =  col; 

tflH+ilU  ==  OM 
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row  =  raw_eat_row; 
col  -  raw  «jt  colMO; 
} 
} 

te»p_raw->nejt  =  NULL; 
teip.raw  =  NULL; 

fscanflfp,  "Us"); 

fscanflfp,  "Us  Id  Its  Id",  iprod.row,  iprod.col); 

fscanflfp,  "Us  Id",  Injiroducts); 

fscanf ffp,  "I*s") ; 

product  =  (PRODUCT*)«y_ptalloc  Csizeo* (PRODUCT) ); 

tewpjirod  ■  product! 

fscanflfp,  'Id  Id  Id",  iprodjto,  Iprice,  iliiitl; 

teip_prod->prod_no  =  prod  no; 

te«p_prod->pnce  ■  price; 

teip_prod->qnty_produced  =  0; 

teip_prod->li«it  ■  liiit; 

row  ■  teip_prod->row  -  prod_row»l; 

col  ■  te»p_prod->col  =  prodcal; 

for(i«l|  j  <  njroducts;  i*+){ 

tEip.prod->nest  =  (PRODUCTH»y_ulloc(si:eof  (PRODUCT)  >  | 

teipprod  -  te»p_prod->next; 

fscanflfp,  "Id  Id  Id",  lprod.no,  Iprice,  tlii.it); 

teep_prod->prod_no  =  prod_no; 

tl*pjrod->price  =  price; 

te«p_prod->qnty_produced  =  0; 

te»p_prod->liiit  =  liait; 

teip_prod->ro»  =  ttrow; 

te«p_prod->col  =  col; 

if((i»l)I3  ==  OK 

row  =  prod_row; 
col  =  prod  col+10; 

) 
) 

tenp_prod->next  =  NULL; 
tetp.prod  =  NULL; 

fscanf (fp,  "Us"); 
for(i=0;  i  <  2;  i**){ 

fscanf (fp,  'Us"); 
for(j=0;  j  <  n_depts;  j«)l 

for(k=0;  k  <  n_ptypes;  k*+>{ 

fscanflfp,  "Id",  tjtiietiHjHk]); 
> 
> 
} 

fscanflfp,  "I«s"); 
for(i=0;  i  (  2;  i«)( 

fscanflfp,  "Us"); 
for(j=0;  j  <  n_depts;  )♦+)( 
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for ik=0;  k  <  njtypes;  k**)( 

fscanf Hp,  "Zd",  totiwCiHjltklJj 

) 

} 
} 

fscanflfp,  "Z*s  IH  l»9*)j 
for(i=0;  i  <  nptypes;  i++) ( 

fscanflfp,  "Zd",  iptype); 

fscanflfp,  "Zd",  Iran  for  ptype[ptype-l])j 
} 

fcloselfp}; 
returrt(O); 

/HIIHHMHIWHHHHIHKHHHHHHHHHHHHHmtHHHH; 

II  Function  to  read  previously  saved  situlation  state 
data  fros  the  file  specified  fay  the  user  */ 

int  read_si«_state!filenaie) 

char  tfilenaie; 

t 

FILE  *fpj 

int  result,  ext  =  0; 

int  i,  j,  k,  count  »  0j 

char  pchar,  test[25]| 

int  dept_no_t,  niachinest,  ntach_in_use_t; 

int  ra»_«at_no,  cost,  prod_no,  price,  liiit,  ptype_t,  pindexj 

int  te»p_cash,  te»p_expense,  qnty_produced,  tenp_ti«e_no»; 

int  ro»_t,  col_t,  iach_no_t,  repeat_t,  setup_for_t; 

int  «state_t,  user_stopped_t,  statechangetnet ; 

int  idle_t,  setupj,  ousyj,  pre.t,  post_t; 

int  startingcash,  noncash,  revenue,  tenpeventtiiej 

char  Modify; 

for (i=0;  filenatelil  !=  '\0';  it+)( 

if IfilenaietiJ  ==  '.'I  ext  =  1; 
} 
if  (!extX 

strcatlfilenaie,  ".out"); 
} 
ifKfp  =  fopenlfilenaie,  "r")l  ==  KULDt 

printfl'Zs  :  bad  file  naie\n",  filenut); 

exit(O); 
} 

fscanflfp,  "Zts  Zd",  4teip_cash); 
cash  ■  (long)teipcash; 
fscanflfp,  "Z»s  Zd",  ateip_expense); 
expense  =  llong)te«p_expense| 
fscanflfp,  "Z*s  Zd  Zts  Zd",  tn_depts,  fcn.ptypesl; 
fscanflfp,  "Z«s  Zd",  !uax_opsl; 
fscanflfp,  "Z*s  Zd",  Space) j 
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f 5canf ifp,  "Us"); 

for  <i=0;  i  (  njitypes;  i  ++} C 

for(j=0j  j  <  aas_ops*l;  j++)( 

fscanflfp,  "Id",  iroutsIiKj]}; 
if  !rDute[il[j]  ==  n_dej>t5)  { 

count**; 
> 
} 
) 

f scanf  if  a,  "Us  Id  Us  2d",  irnuting_ro»,  Srouting_col); 

fscanf (fp,  "Us  2d  Us  2d",  Sra»_«at_roK,  ira«_iat~cc.i ) ; 

fscanflfp,  "Us  2d  Us  Id",  tprod_ro»,  iprDd.col! j 

fscanflfp,  "Us  Id  Us  Id",  in_ra»_«at,  bijroductsl j 

fscanflfp,  "Us  Id  Us  Id",  ipriority_rmi,  Iprsori ty_coI ); 

deptji  =  (DEFT*) *y_ial lac Isi  reof (DEPT) ) j 

te«p_d  =  deptji; 

f  orU=0j  i  <  ndepts;  i*+){ 

fscanflfp,  "Us  Id",  4dept_no_t); 

hurt  Iff,  "IH  Id  Us  Id",  in«achine5_t,  truach.in  use  tl; 

fscanflfp,  "Its  Id  I*s  Id",  tron.t,  fccol_t)j 

teip_d->dept_nn  =  dept_no_t; 

te«p_d->n«achines  -  n»achines_t| 

teip_d->n»ach_in_use  =  niach_in_use_tj 

te»p_d->ro»  =  ro»_tj 

teip_d-)col  =  col_t; 

te«p_d->«ach  =  «MCHHE«)iy„talloc(si!eof  (HACKINE)); 

te«p_»  =  te«p_d->iach; 

f scanflfp,  "Us  Us  Us  Us  Us'!; 

for(j=0|  j  <  n«achines_t|  i++H 

fscanflfp,  "Id  Id  Id  Id  Id",  4roN_t,  kol_t,  !uach_no_t,  trepeat  t,  \ 
lsetup_for_U; 

fscanflfp,  "Id  Id  Id",  >i»state_t,  tuser^stopped  t,  Estate  change  tile  ti 

fscanflfp,  "Id  Id  Id",  iidle.t,  Isetup.t,  Itbusy'tl; 

teip_«->ro»  =  rout; 

te»p_i->col  =  col_t; 

te«p_j->«ach_no  =  iach_no_t; 

te»p_»->repeat  =  repeatj; 

te«p_»->setup_for  =  setup_for_t; 

iap_part_type(teip_i->setup_for,  ipchar); 

teip_«->setup_for_in_cbar  =  pchar; 

teip_i->istate  ■  «state_t; 

te»p_i->user_stopped  =  user_5topped_tj 

te«p_»->state_change_ti«.e  =  (long)state  change  tin  t; 

te»p_j->tiiejdle  =  (longt  idle_t; 

te«p_i->ti»e_setup  -  (long)setup_t; 

te«p_i->tiie_busy  =  llong)busy_tj 

iflj  --  niacin  nes_t-l]{ 


121 


teip_i->nest  =  NULL; 
lelset 

teip_i->next  =  (MACHINE*) »y_BaI 1 oc (siieof (MACHINE! ) j 
teip.i  =  te»p  »->next; 
) 
! 
ifli  ==  n.depts-llf 

teip_d->next  =  NULL; 
}tlul 

teip_d->next  =  (DEPTHiy.ialloclsizeof  IDEPTI); 
teip  d  ■  teip  d->next; 
) 
> 

teip.i  =  NULL; 
teip.d  =  NULL; 

teip.d  =  dept.h; 
fscanflfp,  'Its  J»s">; 
for (i=0;  i  <  n.depts;  I**)  I 

teip_d->part_info  =  (PART_INFO>)ay_naIlac<sizeDf (PART_INFQ)I ; 

teip.pi  =  te«p_d->part  info; 
ifli  ==  0)1 

fscanflfp,  "Id",  idept  no  ti; 
) 

for ( j=l;  dept.no. t  ==  i+1  ;  jtt){ 

fscanflfp,  "Id  Id  Id",  4ro»_t,  icol.t,  irepeat.tl; 
fscanflfp,  "Id  Itc  Id  Id",  iptype_t,  ipre.t,  ipost.t); 
teip_pi->ro»  =  ro«_t; 
teip_pi->cDl  ■  col_t; 
teip_pi->repeat  =  repeatt; 
teip.pi ->ptype  =  ptype.t; 
iap_part.type(teip_pi->ptype,  fcpchar); 
teip_pi->ptype_in_char  =  pchar; 
teip_pi->pre  =  pretj 
te«p_pi->post  -  postt; 
teip_pi->dept_na  -  dept_no_t; 
ifidept_no_t  ==  njepts  Vk  j  ==  count! { 

dept_no_t  =  dept  no  t  ♦  1; 
lelset 

fscanflfp,  "Id",  idept  no  tl; 
} 
ifldept,no_t  !=  itlll 

teip_pi->next  =  NULL; 

}*ln{ 

teip_pi->next  =  IFARTJNFOHiyjialloclstteof (PARTJNFQ)); 

teip  pi  =  teip  pi->next j 
) 
1 
teip.d  =  teip_d->next; 
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tetpji  =  NULL; 
teip  J  »  NULL; 

fscan-f (-fp,  ■!*»  Ms'); 

ra».iat  =  (RANHiy_ialloc(sizeof(RAN!); 

teip_raw  =  ran_iat; 

f or (i=0;  i  <  n_ra«_»at;  i**){ 

fscanf (fp,  "Id  Id  Id  Id",  ira»_iat_no,  icast,  irM.t,  kol_t)| 

teip  ran- >ra»_«at_no  =  ra»_»at_no; 

teip_ra«->cost  =  cost; 

teip_ra»->ra«  •  rawt; 

teip_ra»->col  ■  cal.t; 

if(i  -=  n_ra«_Mt-ll( 

teip  ra«->next  «  NULL; 

>ilu{ 

teip.ra«->next  ■  (RABoliy.ialloclsizeof (RAN)!; 
teip  ran  =  teip  ra»->next; 

> 
) 
teip_ra»  =  NULL; 

fscanf  (fp,  "Its  Us"!; 

product  =  IPRODUCTt)iy_ialloc(si:eDf(PR0DUCT)l; 

teipjrod  =  product; 

for(i=Oj  i  <  nproducts;  i++tt 

fscanflfp,  'Id  Id  Id',  iprodjio,  Itprice,  !fqnty_produced); 

fscanflfp,  'Id  Id  Id",  iliiit,  iro»,t,  icol.t); 

teip_prod->prod_no  =  prodjo; 

teipjirod-Jprice  =  price; 

teip_prod->qnty_produced  ■  qnty_produced; 

teip_prod->liiit  ■  liiit; 

te»p_prod->ro»  ■  ro»_t; 

teip_prod->col  =  colt; 

if li  ■*  n_products-l)( 

teip  prod->next  =  NULL; 

)tl»C 

teip_prod->next  =  IPRODUCTHiy_ialloc(si;eof  (PRODUCT)); 
teip  prod  ■  teip  prod->next; 

} 


} 

teipjrod  =  NULL; 

fscanflfp,  '1*5'); 

for(i=0;  i  <  2;  i++) t 

fscanflfp,  "Us  Hd'); 

for(j=0;  j  <  n.depts;  j+H< 

for(k=0;  k  <  n_ptypes; 

k++M 

fscanflfp,  "Id" 
) 
) 

,  IstiieCiHjHkl); 
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f stanf !fp,  "Us"!; 
for(i=0;  i  (  2;  i+*)( 

fscanflfp,  "Us  :«")] 

for ( j=0;  j  <  ndepts;  i*+IC 

for(k=0|  k  <  n.ptypes;  k++H 

fscanflfp,  'Id1,  tetiwCiHjKkl); 
} 
} 
) 

fscanflfp,  "1*5  Us  Us'!; 
forli=0;  i  <  njtypesj  i*t)( 

fscanflfp,  "Id",  4ptype_tlj 

fscanflfp,  "Zd" ,  km  for  ptypetptype  t-l])| 
) 

fscanflfp,  "Us  Id",  lte»p_ti«e_no»)i 

tiie_no«  =  (long)te«p_tiie_no»; 

fscanflfp,  "1*5  Sd",  !meek_no») ; 

fscanflfp,  "Us  Id",  4day_no»>; 

fscanflfp,  "1*5  Id",  Ihrjion); 

fscanflfp,  "Us  Id",  4«in_noitlj 

fscanflfp,  "I*s  Id",  deleted); 

fscanflfp,  "l*s  Id",  tuser_specified)| 

fscanflfp,  "I»s  Id",  4processing)| 

fscanflfp,  "Us  Id",  iautopurchase); 

fscanflfp,  "Us  Id",  lauto_setup!; 

fscanflfp,  "Us  Id",  4auto_«ovel; 

fscanflfp,  "Us  Id",  izooiron); 

fscanflfp,  "Us  Id",  4zooi_col); 

fscanflfp,  "Us  Id",  *zoo«_dept); 

fscanflfp,  "Us  Id",  4«in_inv); 

fscanflfp,  "Us  Id",  Stpurchase_lot_SLZe) ; 

fscanflfp,  "Us  Id",  !ctransfc-r_batch); 

fscanflfp,  'Us  Id",  Jutjundling^costli 

fscanflfp,  'Us  Id",  4other_Dp_expense); 

stats  =  ISTATS»)»y_ialloc(sizeoflSTATS)); 
fscanflfp,  'Us")j 

fscanflfp,  "Us  Id",  4stats->fin_roiil; 
fscanflfp,  "Us  Id",  4stats->fin_col); 
fscanflfp,  "Us  Id",  4starting_casti)j 
stats->start_cash  =  llong)starting_cash; 
fscanflfp,  "Us  Id",  4no»_cash); 
stats-kashnon  =  (longlnoncash; 
fscanflfp,  "Us  Id",  ^revenue); 
stats->sales_revenue  =  (long)revenue; 
fscanflfp,  "Us  Id",  4stats->ra«_iat_exp)! 
fscanflfp,  "Us  Id",  4stats->iat_hand_expl j 
fscanflfp,  "Us  Id",  4stats->other_op_exp) j 
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fscanf (fp, 

■Us  U", 

istats->net_cash_floii) 

fscan*  Up, 

■Us  U\ 

Ueip_event_ti«el; 

event_ti»e 

■  (long) tenp  event  ti»e; 

f  scanl  t-fp, 

"Us  Id', 

ineek); 

fscanf Up, 

"Us  W, 

4dayl| 

fscanflfp, 

"Us  Id1, 

Mr>l 

fscanf (fp, 

"Us  Id1, 

IttiA)) 

fscanf (fp, 

"Us  Id", 

fcevent_varl); 

fscanf (fp, 

"Us  Id1, 

4e»ent_var2)j 

fscanf  If p, 

"Us  Id", 

ievent_var3); 

fscanf  Ifp, 

■Us  Id1, 

devent_var4)| 

fscanf (fp, 

"Us  Is', 

event_typel; 

fscanf If p, 

■Us  lis" 

,  lodify); 

■odifier  = 

■odifylO] 

1 

readcalji 

st(fp); 

fdose(fp); 

return (01 j 
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linclude  <stdio.h> 

•include  <conio.h> 

linclude  "user\std.h' 

linclude  'user\vi.h" 

linclude  "userUeydefs.h" 

linclude  "user\opt.h" 


t 


char  filenaieUSl; 

int  k,  delay_var,  delay; 

unsigned  long  int  si*_«axtiie  ■  14400L; 

char  ch,  optianch; 

int  breakpoint,  break_tiie; 

int  prev_zoot,  option; 

int  end_of_*eek,  reset_tiiie; 

state  =  FALSE; 

systeil'ds"!; 

printf("\n  Xs  \n","l.  Start  simulation  froa  beginning"); 

printf ("\n  Is  \n  \n","2.  Start  froi  a  previously  saved  snulation  state"!; 

printfds",  "option:  "1; 

optionch  "  getchll; 
switch ioptionchM 
case  Ti 
case  '2': 

option  •  optionch  -  '0'; 

putc(optionch,stderr); 

break; 

beep ( } ; 
goto  back; 


default: 


i 


i< (option  ■»  211 

print-f  I"\n\n"l; 

printfl'Enter  saved  state  f i lenaaeC . OUT] :  "I; 

scanfl'Zs",  filenaie); 

read_si«_state(filenaiel; 

state  =  TRUE; 

goto  front; 
} 

printf  l"\n\n'); 

printff'Enter  filename!. SIM:  "I; 
scanfCXs",  filename); 
if (read.datalfilenaee)   !»  OK 

printf ("fatal  error  in  file  read\n"l; 

exit(O); 
> 


front: 
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deiay_var  -  2; 
break_tiae  =  0; 
end_of  jieek  «  0j 
reset_tiie  ■  0; 
instate  ==  FALSE)  { 

tii6.no»  ■  OL; 

»eek_non  =  day_no*  =  hr_no*  =  nin_now  =  0; 
pace  =  5; 
zooidept  =  1; 
zooi_ro»  =  1; 
zoo«_col  •  39; 
processing  -  FALSE; 
> 

freezed  =  1] 
initialize!!; 
init_stat(); 
set_screen(); 
iHstate  "  FALSE)! 

fori  calendar!!; 
} 

set_cal_»indoii(); 
display_calendar!); 
zooi(zooi_dept); 
set_zooi_scr()j 
query!) j 
printiodesl); 
breakpoint  =  HIK_PER_DAV; 
update_stat_inv_info(); 
intt_on_hand(); 
if (auto.purchase  U  state  «■  FALSE)! 

check  inventory!!; 
> 
if(aiito_setup  U  state  ■»  FALSE)! 

initial  setup!); 
} 

get_neKt_event!l; 
updatepacel); 

»hile(tiM_no«  (=  sii_iaxtiie)( 
ifllfreezedlf 

»hile(event_ti«  ==  tiie_no«H 
process_event(); 
get  neit  event II; 
} 
iflpageno  =  1)! 

update  zoo»  actlzooa  dept); 
1 
iHpageno  =  3)t 

update  act  report  0; 
) 

check_free_«achsl); 
update_stat_inv_info(); 
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) 

for(delay=0;  delay  <  delayvar;  delay"-)! 
if  (kbhitilK 

k  =  getkey 1) ; 
witdilkK 

case  'e': 
case  'E': 
case  K.ALTE: 

iflpageno  --  2)1 

edit  calendar!!; 
} 

break; 
case  T: 
case  'F'; 
case  K.ALTF: 

if  (Ifreezed) 

freezel); 
break; 
case    r': 
case  'R': 
case  K.ALTR: 

viblankiO,  23,  0,  23,  79); 
if ifreezed) 

unfreeze!); 
if  (reset_tneH 

resettUe  =  0; 
reset_finance(); 


} 

lflbreak.tiie  ==  1){ 

breaktiie  ■  0; 
viblanklO,  23,  0,  23,  79) 
viblankd,  23,  0,  23,  79) 
viblank(2,  23,  0,  23,  7?) 
viblank(3,  23,  0,  23,  79) 
) 

break; 
case  'q's 
case  '8': 
case  K.ALT8: 

if(lfreezed)  stop_sii(); 

viblanklpageno,  23,  0,  23,  79); 

viprintf tpaqeno,  23,  30,  B_BLflCK+F_BED+INT,  "Js",\ 

"Are  you  sure?  <y/n>"); 
ch  =  getchl); 

ifKch  "  'y'l   II   (ch  ==  'Y'llf 
*ind_up(); 
exitloi: 


>else( 


viblanklpageno,  23,  0,  23,  791; 
ifl!freezedi  start_sii(l; 
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break; 
case  'i'i 

case    8': 
case  K_ftLTB: 

if  ipageno  !=  OK 

set_|iage!0!; 
) 
if  llfreezedK 

stop  siiiO; 
) 

breakpoint  =  get_break_point  (breakpoint); 
if  CfreezedK 

start_sii(); 
) 
iflpageno  !■  0){ 

set  page(pageno); 
} 

break; 
case  KJH.TH: 

iflpageno  ■»  0)( 

if  llfreezedK 

stop_sii(i; 
} 

getaodesl); 
ifllfreezedK 

start_sia(); 
) 
} 

break; 
case  s'i 
case  'S': 
case  K.ALTS: 

iflpageno  =  0)( 

ifllfreezedK 

stop_sia(); 
) 

user_scheduleO; 
if  llfreezedK 

start_sia(); 
} 
} 

break; 
case  'c': 
case  "C'l 
case  K_ALTC: 

iflpageno  ~  IK 

ifllfreezedK 

stop_siil); 
} 

changevarsl); 
ifllfreezedK 
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stirt_si»() i 
> 
> 

break; 
case  'p': 
case  'f: 
case  KJLTPi 

i  f  ( !  f  r  eez  ei) ) 

freezel); 
print_scr (pageno); 
unfreeze!); 
break; 
case  K.F1: 

pageno  ■  0; 
set_page (pageno); 
break; 
case  K_F2: 

iflpagenD  ==  1)1 

prev_zooa  =  zooa_dept; 
zoot_dept  =  get_dept_no(prev_zooa); 
ifi:ooa_dept  '=  prev_zooa){ 
zoos(zooa_dept); 


lelset 


} 

update_zooa_clock(); 
update_zoo«_act (zooa.dept ) ; 
pageno  =  1; 
setjagelpagenol; 


) 

break; 
case  K_F3: 

pageno  =  2; 

set_page(pageno); 

break; 
case  K_F4: 

update_stat.clock(); 

update_stat_finance(>; 

update_stat_prod_info(); 

update_act_report(>; 

pageno  =  3; 

setj>age(pagenol; 

break; 
case  V| 

tfldelay_var  >=  102M 

delay.var  -=  100; 
pace**; 
update  pacel); 

) 

break; 
case  '-': 

if (delay.var  <=  3021 C 
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delay_var  ♦=  100; 

pace— j 

updatepaced; 
} 

break; 
case  K.P6UP: 

iflpageno  ==  2)( 

set  cal  pgup ( 1 ; 
} 

break; 
case  K_PSDN: 

if (pageno  —  2)( 

set_cal  pgdnd; 
} 

break; 
case  K_UP: 

iflpageno  ==  2)1 

set_cal_l_upll; 
) 

break; 
case  K.DNHi 

iflpageno  ==  2K 

set_cal_l_down ( J ; 
> 

break; 
default: 

break; 

> 

! 
> 

if (end_of_«eekK 

reset_tite  •  1; 

end_of_*eek  =  0; 

calc_cash_flo»0; 

reset_quantity(i; 

ifran  products!) ; 
) 
iflbreak.tiieK 

if  l!free:ed){ 

freezeO; 

viblanklpageno,  23,  0,  23,  791; 
viprintf (pageno,  23,  24,  BS6.C0L0R,  "i!s",\ 
'Break  point:  Type  'R'  to  continue" 

) 
) 
ifl((event_tiie)  J  (unsigned  long  intlbreakpoint)  «•  OK 

break_tiie  =  1; 
> 
ifdlevent.tiie)  I  MN.PER.HEEK]  ==  OK 

end  of  week  ■  1; 
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} 

iflitreezedli 

proce5s_event(!; 
if  lautojnirchaseK 

check  inventory!)! 
} 

get  next  eventllf 
> 
> 

pageno  =  0; 
setjagetpageno); 
Mind  upO; 
} 
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nclude  <stdio.h> 
nclude  <dos.h> 
nclude  <conio.h> 
nclude  "user\biosl ib.h" 
nclude  'user\keydefs.h' 
nclude  "userXstd.h" 
nclude  "user\opt.h" 


lindude  'userWi.h1 

•define  SPACES 

•define  FORMFEED         '\rtC' 

int  printjnitlvoidl; 
int  print_scr(int>i 

/»  Function  to  initialize  the  printer  »/ 

int  printjnitl) 

{ 

prtJnitlOl; 
} 

/*  Function  to  dutp  the  screen  H 
int  print_scrlheader) 
int  header; 
( 

char  buf[801; 

int  i,  print_abort,  k; 

char  ch; 

union  REGS  inregs,  outregs; 

print_abort  =  FALSE; 

if  I (header  <  0)  !!  (header  >  3)1  return  (11; 
viblanklpageno,  23,  0,  23,  7?l; 
viprintflpageno,  23,  15,  HS6_C0L0R,  "l5",\ 

"Hake  sure  printer  is  on  and  press  a  key  to  continue'); 
ch  =  getchl); 

viblanklpageno,  23,  0,  23,  791; 

viprintflpageno,  23,  35,  rlS6_C0L0R+BLNK,  "2s",  ■Printing..."); 
for(i=0;  i  <  SO;  i*+l{ 
buflil  =  '  ■; 
} 

snitchlheaderK 
case  0: 

sprintflbuf,  "ZsIsZsIsHclcIcIc",  SPACES,  SPACES,  SPACES, \ 

■SNAPSHOT",  '\n',  '\n',  '\n',  '\0')| 
break; 
case  1: 

sprintfibuf,  "ZsZsZsZsZcZcZcZc",  SPACES,  SPACES,  SPACES, \ 

"ZOOM  REPORT",  \rT,  'to',  'to-,  "\0 " ) ; 
break; 
case  2: 
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sprintfibuf,  °Ssls?.sXs?.c7.cXcIc",  SPACES,  SPACES,  SPACES, \ 

■CALENDAR  LISTIN6",  '\n',  '\n',  -\n\   '\0')j 
break; 
case  3: 

sprintflbuf,  •JaltJlIiZcIe&Xc',  SPACES,  SPACES,  SPACES, \ 

"STATISTICS  REPORT" ,  '\n',  '\»",  '\n',  '\f)j 
break; 
default: 

break; 
) 

for(i=0;   Mprint_abort)  tt  i  <  80  U  bufEi 1  !«  '\0'j  i++) C 
ifllprt.printlO,  Mill)  4  1!  !=  0}( 
beep  1 1 ; 

viblanktpageno,  23,  0,  23,  79); 
viprintf (paqeno,  23,  10,  NS6.C0LOR,  'J5*,\ 
'Printer  not  ready:\ 

press  any  key  to  try  again  or  ESC  to  abort'!; 
ch  =  getchl); 
men  ==  K.ESOl 

print^abort  =  TRUE; 
lelsef 

I— I 

viblanktpageno,  23,  0,  23,  7?); 
viprintflpageno,  23,  35,  (tSG.COLDR+BLNK,  "Zs",\ 
"Printing..."); 
) 
) 
) 
Hi!print_abort){ 

intBMPRINT.SCRN,  iinregs,  ioutregs!; 
prt  print (0,  FORMFEED! ; 
) 

viblanklpageno,  23,  0,  23,  791; 
returnlO); 
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iinclude  <stdio.h> 
(include  "user\vi,h" 
tindude  "user\oot,h" 
•include  "user\process.h" 
•include  'user\5td,h" 

fde<ine  diilx!  (sizeof (*>/5i:eof(i[0])>  /*  iacro  to  return  the  nunber 

of  eleietits  in  a  structure  */ 

/*  —  Functions  to  process  events  — -  */ 

int  process_event(void}; 

int  checkJnventoryNoidt; 

int  check_tree_flachs(vaid); 

int  print_errorp(void)] 

int  print_errord(void)j 

int  print_error«(void!j 

int  initial_setup(void); 

void  update_pace(void); 

void  updatejinance(void); 

void  update_stat_(inance(void!| 

void  update_stat_prod_in<D(void); 

void  update_act_report(voidl| 

void  update_zoo»_clDck(void); 

void  update_stat_dock(void)i 

int  print_skip(int)j 

int  n«ach_procjtype(DEPT»,  int,  int) ; 

int  update_zooi_»indo»(int,  int,  int,  char) ; 

void  update_stat_inv_infolvoid); 

void  init_on_hand(voidl; 

I*  —  Private  Junctions  defined  in  process. c  —  */ 

static  void  update_scr_dk(void>; 

static  void  update.partjnfolPARTJNFO*!; 

static  void  update jre_info(PART_INFO*>; 

static  void  update_post_info(PART_INF[)«); 

static  void  update_prod_info(PRDuiicT»>; 

static  void  update_clock(voidl; 

static  void  update_inv_finance(l, 

static  int  countC10K.Ji| 

static  void  u[idate_oiiJiand(P«RMNFO»>j 

■*  Procedure  to  advance  sinulation  clock  #/ 

int  advance_clockldus«yl,  du»»y2,  duny3,  dua»y4l 

int  dumyl,  dumy2,  duny3,  dumy4; 

C 

tiae_nott  =  event^tiie; 

neek_no*  =  week; 

day_noi#    =  day; 

hr_no»     =  hr; 

«in_no«    =  tin; 

update.scr_clk(); 
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schedulelCLDCK  TICK,  tin  no«*5L,  0,  0,  0,  01) 
) 

I*  Function  to  update  the  clock  «/ 

static  void  update.clockl) 

( 

tiie.non  =  eventtiie; 

neekjiow  =  week; 

day.noit    =  day; 

hrnon     ■  hrj 

iin.non    =  lin; 

update.scr.clkl); 
) 

/•  Function  to  update  the  screen  clock  »/ 

static  void  update  icr  clkd 

C 

viprint<!0,  1,  1,  CLOCK.COLOR,  ■J2d",  «eek.no»); 

i«(»eek_no»  (  10)  viprintffO,  1,  1,  CLDCK_EoLQR,  "7.c",  'O'lj 

viprtntrlO,  1,  7,  CLOCK.COLOR,  "lid",  dayjioul; 

viprinHIO,  4,  2,  CLOCK.COLOR,  "J2d:l2d",  hr.non,  »in_no.l; 

H(iin_no«  <  101  viprintflO,  4,  5,  CLOCK.COLOR,  "It",  'O'l; 

lflpageno  --   1){ 

update  :ooB_dock(); 

) 

iffpageno  ==  3){ 

update  stat  clock!); 

) 
) 

It  Function  to  update  the  clock  in  statistics  screen  »/ 

void  update_stat_clock() 

{ 

viprintf(3,  0,  11,  CLOCK.COLOR,  "I2d",  Neek  no«); 

Hi«eek_no«  (  10! { 

viprin»(3,  0,  11,  CLOCK  COLOR,  "Ic",  'O'lj 

} 

viprintflj,  0,  20,  CLOCK.COLOR,  'lid",  day.non); 

viprintf (3,  0,  6?,  CLOCK.COLOR,  "I2d:I2d",  hr.non,  lin.noHi; 

H (iin.non  <  101  ( 

viprint-f (3,  0,  72,  CLOCK  COLOR,  "Ic-,  'O'l; 

) 
> 

'»  Function  to  update  the  dock  in  the  zool  tdndow  1/ 

void  update.ioon. dock!) 

t 

viprint-m,  1,  9,  CLOCK.COLOR,  "12d",  «eek.no«); 

ifl»eek.no»  <  10) { 

viprinUU,  1,  9,  CLOCK  COLOR,  "Zc",   '0'); 

) 
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viprintfll,  1,  18,  CLOCK_CDLOR,  'lid',  day_no«); 
viprintfll,  3,  11,  CL0CK_C0L0B,  'Z2d:I2d',  hrjio*,  •in.noul; 
ifl«in_no»  <  10H 

viprintfll,  3,  14,  CL0CK_COLOR,  'Jc1,  01; 
} 
) 

/»  Function  to  update  the  pace  display  on  the  screen  */ 

void  update.paceO 

{ 

viprintflO,  12,  6,  CLOCK  COLOR,  "lid1,  pace); 
} 

It  The  Event  Processor  ♦/ 
int  process_event() 
{ 

int  i,  jj 

DEPT  Hetp.d) 

MACHINE  *te«p_i; 

int  «ach_no,  tiake^idle; 

iflideletedH 

forli'O;  i  <  ditlcal.fncsl;  !♦♦)( 

j  ■  strciptcal_fncs[il.na«e,  eventtypel; 
ifij  ==  OH 

(*cal_fncs(i].fncl(event_varl,  event_var2,\ 

event_var3,  event_var4); 
del_event_fro«_cal(l; 
return (01; 
) 
) 
)else{ 

if(strcip(event_type,  LOAD)  ==  01! 

for(te«p_d  ■  dept_h;  teip_d  !■  NULL  14  teip_d->dept_no  !=  event_var2;\ 

teip_d  ■  te«p_d->nextl ; 
iftteip.d  ==  NULL?  print.errordll; 
if  levent_varl  ==  0){ 

forlteip.i  ■  teap.d->aach;  teip.i  !■  NULL  U\ 

!(teip_a->setup_tor  —  event_var4  b%  \ 
teip_i->repeat  ==  event_var31;\ 
te«p_i  =  teip_«->nextl; 
if(teip_«  ~  NULLI  print.erronO; 
H  (teip_t->istate  ==  IX 

•achno  =  te»p_i->»ach_no; 
takejdle  -  1; 
}(lll< 

take  idle  -  0; 
> 
>else( 

■ach  no  *  event  varl; 
) 
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Hlnake.idleK 

for(te»p_§  =  teip_d->Mchj  te»p_t  '=  NULL  SM 

te«p_»->iach_no  !=  «ach_no;  te»p_i  =  te»p_«->next); 
if(te§p_»  ■=  NULL)  print_errori() j 

if((tesp_»->i5tate  •«  !)  it  Hte«p_i->repeat  ==  event_var3)  ti  \ 
!te»p_i->setupJor  ==  event_var4])){ 

viprinKlO,  teip_i->ro»ti,  teip  l->raltt,  BACH1NE  COLOR,  \ 

"Ic\  IDLE) ; 
teip_i->tite_setup  +=  (ti«e_no»  -  teipjt->statej:hange_tiaei; 
teip_i->5tate_change_ti»e  =  tine_now; 
te«p_i->istate  «  0; 
update_cIock(); 
i-f  !tB»p_d->dept_no  ==  zoo«_dept){ 

update_zoo»_»indoii(teep_«->iiach_no,  te»p_«->«state,  \ 
te«p  i-l-repeat,  teup  «->$etup  for  in  charl; 
) 


del_event 
returnll); 


from  cal  ( 


/»  Procedure  to  nove  the  part  H 

int  »ove.partlrepeat,  part.type,  dept.no,  trans.batchl 

int  repeat,  part_type,  deptjio,  trans_batch; 


int  nth_occurance,  op_no,  to_dept,  earnings,  new  repeat,  i; 

DEPT  «te«p_d; 

PARTJNFO  *te«p_pi; 

PRODUCT  *te«p  prod; 

MACHINE  *te«p\; 

char  pchar; 

int  te«p_batch_size! 

for(op_no=0,  nth_occurance=0|  nth_occurance  !=  repeattl;  nth_occurance++,op  no**)! 
far(|roijte[part_type-n[op_no]  !■  dept_no;  op_no++); 

tadept  =  route[part_type-l][op_no]| 
f or (i=0,  ne«_repeat=0|  i  <  op_no;  i**]{ 

i<!route[part_type-!HiJ  ==  to.deptH 

ne»  repeat**; 
) 
} 
Hlto.dept  ==  OK 

for(tetp_prod=product;  te«p_prod->prod_no  !=  part_type;\ 

teip_prod  =  te«p_prod->nextl; 
for(te«p_d  =  dept_h;  tesp.d  !«  NULL  H  te«p_d->dept_no  !«  dept_noj\ 

teip_d  =  te»pj->next); 
tor(te«p_pi  =  te«p_d->part.in?o;  te«p_pi   !=  NULL  U\ 
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'(te«p_pi->ptype  -  part.type  a  teip_pi->repeat  ==  repeat)  ;\ 
teip.pi  =  teip_pi->next); 
if  ( (teip_prod-?l iiit-te»p_prod->qnty_produced)==0) ( 

te*p_pi->po5t-(teap_pi->post>+trans_batch; 

update.post.infol teip.pi I; 

update_on_hand(te«p_pi); 

update.clockd; 

rettirn  I0>  j 
} 
ifltrans.batch  >  (teip_prod->liiit-teip_prod->qnty_produced)){ 

teip_pi->post=lteip_pi->postMrans_batclH\ 
teip_prod->liiit-teip_prod->qnty_produced); 

update_postJnfo(teip_pi); 

update_on_hand (te»p_pi ) j 

te»p_batch_sire  =  lte«p_prod->liiit-te»p_prod->qnty_produced); 

teip_prod->qnty_produced  M  teip_batch_siie; 

update_prod_info(te«p_prc5d>  ( 

earnings  =  teap_prod->price*teap_batch_size; 

cash  +=  earnings; 

stats->sales  revenue  +=  earnings; 
!else( 

update_post_info(teip_pi I ; 

>apdate_on_hand(te«p_pi!; 

teip_prod->qnty_produced  ♦=  translated; 

update_prod_info(teap_prod); 

earnings  =  teipjrDd->price«trans_batch; 

cash  *-  earnings; 

stats->sales_revenue  ♦=  earnings; 

)else( 

fur (teip.d  =  dept.h;  teip.d  !«  NULL  U  te«p.d->dept_no  !•  dept  no;\ 

teip.d  =  teip_d->next); 
for(te«p_pi  =  teip_d->part_info;  teap_pi   !«  NULL  tt\ 

• (te»p_pi->ptype  -=  part_type  a  teip.pi ->repeat  ==  repeat);\ 

teip.pi  =  teip_pi->next); 
update.post _i  nf o  I  teip.pi I j 
for (teip.d  =  dept.b;  teip.d  !•  NULL  U  teip_d->dept.no  !«  to  dept;\ 

teip.d  =  teip_d->next); 
(orlteip.pi  =  teip_d->part_info;  teip.pi   !=  NULL  U\ 

!(teip_pi->ptype  -  part.type  M  te«p_pi->repeat  ==  ne»  repeat) ;\ 

teip_pi  =  teip_pi->nextl; 
teip.pi->pre  ♦«  trans.batch; 
update.pre_info(teip_pil; 

forfteip.i  =  teip.d->iach;  teip.i  !=  NULL  «\ 

! (teip_i->repeat  ==  nen.repeat  H.  teip.i->setup  for  ==  part  type);\ 
teip  i  =  teip  i->next>; 
iflteip.i  !•  NULLH 

I*  There  is  a  lachine  running  this  part.type  »/ 
if((teip_«->istate  ==  0)  st  lteip_pi->pre  >  0)l( 

/»  That  iachine  is  idle  and  if  pre  is  not  eipty  »/ 
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It  This  case  is  taken  care  of  by  check  free  nachsO  »/ 
) 
>else{ 

I*  There  are  no  lachines  running  this  partjype  *l 
if (teap_d-}nnach_in_u5e  <  tesp_d->nmachine5){ 

I*  And  there  are  so>e  unused  »achines  */ 
if (auto_setup){ 

for(te«p_i  =  teap_d->iich;  te«p_i  !=  NULL  M  \ 
te«p_t->setupJor  !=  UNUTILIZED; \ 
te»p_»  '  te«p_i->nextl; 
ifltenp.i  ==  NULL)  viprintflO,  23,  0,  HSS_C0LDR,\ 
BXs",  "check  nfflach^injjse"); 
teap_n-)»repeat  =  nen_repeat; 
teap_s->setupJor  =  part_type; 
•ap_part.type(te»p_«->setup_for,  spcharl; 
teap_i->setup_for_in_char  =  pchar; 
teip_«->state_change_ti«e  =  ti»e_no«; 
te«p_»->nstate  =  1; 
schedulelSETUP,  ti«e_no»+lL,  te»p_n->«ach_no,\ 

te«p_d->deptjio,  te«p_i-:>repeat,\ 
te»p_i->setup_for)j 
te»p  d->mach  in  use++; 
} 
} 
} 
> 

expense  «  HftT_HAMDLING_CDST; 
cash  -=  HAT_HflHDLINS_CDST; 
stats->cash_no»  =  cash; 
5tats->«atj!and_exp  +=  HAT_HANDLIN6_C0ST; 
updatejinancel); 
update_clockll; 
return(O); 


It  Procedure  to  load  the  machine  »/ 

int  load_iachinedach_no,  dept_no,  repeat,  part  type] 

int  tach  no,  dept  no,  repeat,  part  type; 

{ 

DEPT  *teip  d; 
NACHINE  »te«p_»; 
PART.INFO  »te«p_pi; 
int  npre; 

for(te»p.d  =  deptjj  teip.d  !=  NULL  M  *e«p_d->dept_no  !=  dept_no;\ 

te«p  d  =  teip  d->next); 
iflte»p_d  =--  NULL)  print_errord()j 

i'lsachjio  !=  01 { 

forlteups  =  te«p_d->iach;\ 
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te«p_i  !=  NULL  U  teBp_a->»ach_no  !=  »ach_noj\ 
te»p_»  =  teip_i->nestlj 

if(te«p_i  ~  NULL)  print_5kip(llj 

for(te«p_pi  =  te«p_d->part_infoj  te«p_pi  !•  NULL  Mt\ 

!(teip_pi->ptype  ==  part. type  U  te«p_pi->repeat  •*  repeat);\ 
te»p_pi  =  te*p  pi->next); 
if (te«p_pi  ==  NULL)  print_skip(2); 
iflte«p_pi->pre  <  0)  print_skip(3) j 
if(te«p_pi->pre  ~  0){ 

te«p_i->tiae_setup  *-  (tiie_non  -  teap_i->state_change_tiae) j 

te»p_i->state_change_ti»e  =  ti«e_no»; 

te«p_j->istate  =  0; 

viprintflO,  teip_«->ro»tl,  teip_»->col+l,  lttCMNE_CDLOR,  'Jc",  IDLE); 

updatBclock  f ); 

if (teip_d->dept_no  ==  zoo«_dept)( 

update_zooi_»indo>i(te«p_i->«ach_no,  te»p_«->istate,  \ 
te»p_i->repeat,  te«p_i->setup_for_in_char) j 

return (0); 
) 

if  ite«p_i-  >nstate  ==  OK 

te«p_a-itiie_idle  +=  (ti«e_no»  -  te«p_»->5tate_change,ti»e); 

te»p_i->state  change  tiie  =  tilt  no»; 
) 

if (te«p_»->«5tate  ==  1){ 

teip_i->tite_setup  ♦«  (tiie.no»  -  te»p_«->state_change  tits); 

teip_«->state  change  tine  =  ti»e  no»; 
) 

te»p_»->«5tate  -  1; 

viprintfW,  te»p.»->roi,*l,  teap_a->col+l,  NflCHINE_C0LOR+BLNK,  'Ic",  PROCESStHB) ; 
if !tetp_d->dept_no  ==  zooi_dept)( 
update.zooi.«indOHltMp.i->ijcli_nD,  te»p_i->«tate,  teip_i->repeat,  te»p_«-:>setup_for  in  char!; 

schedulefUNLOAD,  ti«e_no»+(unsigned  long  int)«tiie[repeatHdept_no-l][part  type-l],\ 

te«p_i->«ach_no,  dept_no,  0,  0)| 
njre  =  niach_proc_ptypeltejp_d,  repeat,  part_type)j 
ifite«p_pi->pre  >  n_pre*2-l)( 
5Chedule!LDft!),  ti»e_noN+(unsigned  long  int)»ti«e[repeat][dept_no-l][part  type-ll,\ 

•ach_no,  deptjio,  repeat,  part_type); 

)el5e{ 

for(te»p_«  =  te«p_d->«achi\ 

teip.i  !=  NULL    \k\ 
'(teip_«->setup_for  -  part_type  U\ 
teip_i-    speat  ==  repeat  tt\ 
te»p_i->istate  ==  0);\ 
teip_i  =  te»p_i->neKti; 
Hltesp.j  ~  NULL)  print_skip7l ) ; 

fordeipji  =  te»p_d->part_info!  te»p_pi   '-  NULL  M\ 
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'(te«p_pi->ptype  ==  part.type  W  te»p_pi->repeat  ==  repeat)j\ 
teap.pi  =  tenp_pi->nest) j 
ifiteap.pi  ==  NULL!  pr int_skip (2) j 
iflte«p_pi->pre  <  0)  print _skip(3)j 
if (te»p_pi->pre  ~  OK 

teap.n-Hine.setup  +=  ItiM.ROH  -  teap_«->state_change_tiae); 

te«p_n->state_change_ti»e  =  tiae.non; 

teap_a-:>«state  =  0; 

viprintf (0,  teap_»->ro»*l,  teip_t->col+l,  NACHINE.COLOR,  "Xc",  IDLE); 

update.clockd ; 

if (teap_d->dept.nn  ==  2oo«_dept)  { 

update_!oo«_»indo»(teip_»->i]ach_no,  te«p_«->«state,  \ 
tenp_n->repeat,  te«p_«->setup_for_in_chart; 

return (0)) 
} 
if (te«p_«->»state  --  OK 

teap.a-jtiie.idle  +=  (ti«e_no«  -  teap.a-htate.change.tiae); 

tenp.a-htate.change.tiae  =  tiae.noit; 

if!te«p_i->»state  ==  IK 

teip_a->ti«e_setup  ♦=  (tue.non  -  te«p_a->state_change  tiie); 

teap  i-)state  change  tins  =  tine  no»; 
> 

tenp_i->nstate  =  2; 

viprintf (0,  teop_n->row+l,  teip_a->co]*l,  NftCHIKE.COLORtBLNK,  "Ic",  PROCESSING! ; 
if(te«p_d->dept_no  "  sooa.deptK 

update_!oon_iiindD>i(te»p_a->aach_no,  teap_a->«5tate,  teap_a->repeat,  \ 

teap  «->5etup  for  in  char!: 
)  -      -    - 

schedulelUNLDAD,  tiie.noa+lunsigned  long  int ) •tiae[repeatMdept_no-l] [part  type-U,\ 
tenp_i->aach_no,  dept_no,  0,  0!; 

n.pre  =  naach.proc.ptypelteap.d,  repeat,  part_type)j 

if!te«p_pi->pre  >  n_pre»2-l!( 

schedule  (LOAD,  tiae.non+lunsigned  long  intlntinetrepeatHdept.no-lHpart  type-U,\ 
MCll.no,  dept.no,  repeat,  part.type); 


) 
) 

update.docki); 
return(O): 


/»  Procedure  to  unload  the  «achine  H 

int  unlDad_aachinedach.no,  dept.no,  duaayl,  dua«y2! 

int  aach.no,  dept  no,  duaayl,  dun«y2; 

t 

DEPT  Jteap  d; 

MACHINE  »teap  >; 

PART.INFO  Ueap.pi; 

int  repeat,  part.type; 

int  nth.occurance,  op.no,  to.dept,  ne»_repeat,  i; 
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fortteipjf  ■  dept_h;  te«p_d  '.-  NULL  fci  teip_d->dept_no  !=  ifept_noj  \ 

teip_d  ■  te«p_d->nextl; 
if  (teapd  ==  NULL!  print_errord!l; 
for!te«p_«  =  teip_d->iach;  te«p_n  !«  NULL  Itl  teip_«->«ach_no  !»  «ach_no;'t 

teip_«  =  tenp_»->nest >; 
if(teip_i  ==  NULL)  print_erron() ; 
repeat  =  te«p_«->repeat; 
part. type  ■  te«p_«->setup_for; 
for(te«p_pi  =  te»p_d->part_info;  tetpji   !«  NULL  Vt\ 

Hte«p_pi->ptype  *•  part_type  4ir  teip_pi->repeat  ==  repeat) j\ 
teipji  =  te»p_pi->nextl; 
ifiteipji  ==  NULL)  print_errorpO; 
te«p_pi->pre~ ; 
tesp_pi->post++; 
update_part_info(teip_pi!; 

tenp_«->ti«e_busy  +=  (ti«e_no»  -  te«p_«->5tate_change_ti«e); 
teip_a->state_change_tiiie  =  ti«e_non; 
te»p_«->istate  "  Oj 

viprintflO,  te«p_«->ro»*l ,  teip_i->col*l,  NACHINE.CULOS,  "&',  IDLE); 
update_clock(); 
if (te»p_d->dept_no  ==  :oon_dept){ 

update_zoo«_i«ndoK(te«p_«->«acti_no,  teip_«->»state,  teip_«->repeat,  \ 
teup  «->setup  for  in  char!; 
) 

iflauto.tove  il  (teip.pi-:>po5t  ==  TRANSFERJATCHIK 
schedulelNOVE,  tine_no»,\ 

repeat,  part_type,  dept.no,  TRANSFER  BATCH! ; 
te«p_pi->po5t  -=  TRANSFER JATCH; 


if(auto_«ove  -  FALSE!! 

for (op_no=Q,nth_occurance=0;nth_occurancel=repeat+l;nth_occurance++,op  no++){ 

for(;route[part  type-lHop  no]  !«  dept  no;  op  no**); 
) 

tojept  =  route[part_type-lHop_no]; 
for (i=0,  ne»_repeat=0;  i  (  op_no;  i*+)( 

if  iroute[part_type-lHi]  ==  to_dept){ 

ne»  repeat**; 
) 
) 
iflto.dept  ==  01 { 

update  on  hand(te»p  pi); 
> 
} 

return(O); 
} 

/*  procedure  to  purchase  ran  laterial  */ 

int  purchase_ramat(ra»_iat_no,  partjype,  qnty,  duiiyl 

int  ra»_>at_no,  part_type,  qnty,  du«iy; 
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irtt  cost,  dept_no; 
DEPT  tteap.di  " 
PART. INFO  tteap_pi; 
RAN  »teip_ra«i 

for(te«p_ra«  =  ra«_tat;\ 

teip_ra«  !=  NULL  U  teap_ra»->ra>i_iat_no  !«  ra»_aat_no;\ 
te«p_ra»  ■  te«p_ra»->next ) ; 
if(teip_raii  ==  NULL]  printerrorpO; 
C05t  =  te«p_ra«->cost*qntyj 
expense  *■  cost; 
cash  -=  cost; 
stats->cash_no»  »  cash; 
stats->ra«_«at_exp  +«  cost; 
update_f  inanceO ; 
deptjio  =  route[part_type-lHO]; 
for(te*p_d  =  dept_h;  teip_d  !«  NULL  U  te«p_it->dept_na  !=  dept_noj\ 

tetp_d  =  te»p_d->nextl 
lfltenp.d  ==  NULL)  print.errordO; 
tor (te*p_pi  =  teap_d->part_info;\ 

teupji  !«  NULL  H  te«pj>i->ptype  \-  parttype; \ 
te»p_pi  =  te«p_pi->nextl; 
Hlteap_pi  ==  NULL)  print  errarpl); 
HUodiHer  ==  USER.SPECIFIEDI ! 

tetp_pi->pre  »■  qnty; 
} 

/*  display  the  updated  contents  of  pre  */ 
update_pre_info!te«pjiil; 
update_clockll; 
return(O); 


} 


/»  Function  to  print  error  tessage  if  soaething  is  urong  in  partinlo  */ 

int  print_errorp() 

t 

H (pageno  >  0){ 

pageno  =  0; 
setpagelpagenol; 

) 

viprintFlO,  22,  0,  NORN,  "Is",  "Error  in  part,info"l; 

exit  10); 
} 

/•  Function  to  Nam  about  unprocessed  events  */ 
int  print_skip(nuiber) 
int  nuaber; 
I 

iflpageno  >  OK 

pageno  -  0; 

setpagelpagenol; 
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} 

iflnuiber  ==  IK 

viprintflO,  22,  0,  NORM,  "Is",  "No  sachine  free, .skipping  one  load'); 

HitlOli 
} 
iflnuiber  ==  2)( 

viprintflO,  22,  0,  NORM,  "Is",  'Error  in  partinfa. .skipping  load") ; 

exit (0) j 
} 
if (nuiber  ~  3)[ 

beep  I ) j 

viprintflO,  22,  30,  NORM,  "its",  "No  part  in  pre. .skipping  one  load"); 
1 
} 

I*  Function  to  print  error  lessage  if  something  is  urong  in  departient  structure  */ 

int  print_errord(! 

{ 

iflpageno  >  0)( 

pageno  =  0; 

set  page(pageno); 

} 

viprintflO,  22,  0,  NORN,  "Is",  "Error  in  dept  list'lj 

exit(O); 
> 

/»  Function  to  print  error  »essage  if  sotething  is  urong  in  nachine  structure  */ 

int  print_erroril) 

{ 

iflpageno  >  OK 

pageno  -  0; 
setjagelpageno); 

} 

viprintflO,  22,  20,  NORN,  "Is",  "Error  in  lachine  list"); 

exit(O); 
} 

I*  Procedure  to  setup  eachine  »/ 

int  setup_iachine(«ach_no,  deptjio,  repeat,  parttype) 

int  each_no,  dept^no,  repeat,  part  type; 

t 

DEPT  *te«p_d; 

BfiCHINE  »te»p_«j 

PflRT.INFO  »teip.pi[ 

cbar  pcbar; 

forlteipj  =  dept.hj  teip_d  !■  NULL  U  teep_d->dept_no  !=  dept_no;\ 

tetp_d  =  teip  d->next)| 

iflteip.d  ==  NULL)  print.errordOj 

forlteip.e  =  te«p_d->iach;  te«p_«  !=  NULL  W  teip_i->«ach_no  '=  iach_nO|\ 

teepi  =  teip_a->next)| 
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ifltMM  "  NULL)  print_error»(); 
if (aodifier  ==  USER.SPECIFIED) { 
teap_a->repeat  =  repeat; 
te«p_t->setup_for  =  part_type; 
lap _part_type(part_type,  Ipchar) ; 
teip_i-hetup_for_inj:har  =  pchar; 
if Iteip.i- Estate  ~"o){ 

teip_i-Hiie_idle  t=  (tiiejion  -  teip_i->state_change_tiie); 
teip_«->state  change  tile  ■  tile  ncm; 
} 
iflteip_e->i5tate  ==  2){ 

teip_i->tiie_busy  t»  (tiie_no»  -  teip_i->5tate_change_tiie); 
teip_«->5tate  change  tine  =  tine  now; 
} 

teip  i->istate  =  1; 
> 
if  (repeat  >  OK 

viprintflO,  teip_i->ro»+l,  teip_i->co]-l,  B_BLUE+F  SREEN+INT,  lit',  repeat)! 
lelset 

viprintflO,  teip_»->ro«+l,  teip  «->col-l,  B  BLUE+F  BREEN+INT,  "Jc".   '   'I; 
>  ..iii 

viprintflO,  teap_»->ro«+l,  teip.i-kol,  MflCHINE_CDLDR,  "7.c",  teip  t->setup  for  in  char); 
viprintflO,  teip_i->ro»+l,  teip_t->coI+l,  IttCHINE.COLOR+BLNK,  "fc«,  SETTING  UPlj  ' 
if(teip_d->dept_no  ==  zuoi_dept>{ 

update_iooi_>tindo>i(teipji->iach_no,  teip_«->»state,  te«p  a->repeat,  \ 
teip_i->setup_for_in_char); 

for (teip _pi  =  teip_d->part_info;\ 

teipji   !  =  NULL  m  ! I(te«pjii->ptype  ==  partjype)  tt\ 
lte»p_pi->repeat  ==  repeat) lj\ 

teipji  -  te«p_pi->nest); 
iflteip_pi  ==  NULL)  print_errorpl); 
schedule  (LOAD,  tilejioii+lunsigned  long  int>5tiie[repeatHdept_no-U[part_type-n,\ 

uch.no,  dept.no,  repeat,  part  type); 
update.clockd; 
return  10); 


/»  Function  to  check  inventory  H 

int  check  inventory!) 

C 

DEPT  «teip  d; 

PART.INFO  »teip.pi; 

int  i,  dept.no; 


for(i=0;  i  <  n.ptypes;  i**){ 
dept.no  =  routetiltOl; 
forlteip.d  =  dept_h;\ 

te»p_d  !=  NULL  ik  teip_d->dept_no  !=  dept.no; \ 
teip_d  =  teip_d->next); 
for  (teipji  =  teip.d->part_info;\ 
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te«p_pi   !«  NULL  H  teipji->ptype  !•  (i+l)j\ 
tetpji  =  te«p_pi->next); 
ifite«p_pi->pre  <=  KIN_INV) ( 

te«p_pi->pre  »=  PURCHASE  J.OT.SIZE; 
schedulelPURCHASE,  tiie_no»»lL,\ 

ran  for  ptypelil,  i+1,  PURCHASE  LOT  SIZE,  01; 
} 


} 


/»  Function  to  update  cash  ami  expense  on  the  screen  »/ 

void  update  finance!) 

t 

viprintflO,  7,  1,  CASK.COLOR,  "lild',  cash); 
iflexpense  !=  OH 

viprintflO, 10,  1,  EXPENSE  COLOR,  "I61d",  expense); 
>else( 

viprintflO, 10,  1,  EXPENSE  COLOR,  "Is",  ■     "); 
} 
if Ipageno  ==  31! 

update  stat  financed; 
) 
1 

/•  Function  to  update  Financial  Report  in  Statistics  lindOH  H 

void  update_stat_finance() 

t 

int  roM,  col; 

ro»  «  stats->fin_roM; 
col  -  stats-Xincol; 

viprintflo,  ro»-l,  col,  STAT_FIN_C0LOR,  "Old",  stats->start  cash); 
viprintf(3,  ro»,  col,  STAT_FIN_COL0R,  "I71d*,  stats- >cash.noii); 
viprintflo,  ro»+2,  col,  STATJIN.COLOR,  "5t7d",  stats- >ra/«at_exp); 
viprintflo,  ro»»3,  col,  STAT_FIN_C0LOR,  'Ud1,  stats->«at~hand_exp); 
viprintf(3,  ro»+4,  col,  STAT_FIN_C0LOR,  "I7d" ,  stats->other_op~exp) ; 
viprintf(3,  ro»*o,  cdI,  STAT.FIN_C0L0R,  *I71d',  stats->sales_revenue); 
viprintf(3,  ro»+7,  col+1,  STAT.FIN.COLOR,  'Mi',  stats- >net"cashJio«); 

I*  Function  to  update  part  infonation  on  the  screen  »/ 
static  void  update  part  infDlptr  pi) 
PART  INFO  *ptr  pi; 
C 

OEPT  *ptr_dept; 

PART.INFO  »Up_pi; 

int  ro»,  col; 

if lptr_pi->pre  !=  0)1 

viprintflO,  ptr_pi->ro«,  ptr  pi->col,  PRE  COLOR,  '13d",  ptr  pi->pre) 
lelset 
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viprintflO,  ptr_pi->row,  ptr_pi->col,  PRE  COLOR,  "7.5",   "      "); 
} 
if  (ptr_pi->post  !«  OH 

viprintflO,  ptr_pi->ro»,  ptr  pi->col»16,  PDST  COLOR,  "7.3d",  ptr  pi->post); 
>else< 

viprintflO,  ptr_pi->ro»,  ptr  pi->col+16,  POST  COLOR,  "Is",  "      "); 
} 

if  lptr_pi->dept_no  ==  zooideptK 
row  =  zooi_row+l; 
col  •  zooicdI-13; 
for(ptr_dept  •  dept_hj  ptrjept  !=  NULL  U  ptr_dept->dept_no  !■  zooi_dept;\ 

ptrdept  '  ptr_dept->ne«t); 
iflptrjlept  ==  NULLI  print_errorp() j 

forltspjii  =  ptr_dept->part_info;  tipji   !=  NULL;  tipji  ■  t«p_pi->next){ 
if ltip_pi->pre  !=  0)( 

viprintfd,  ro»,  col-1,  PRE  COLOR,  '  7.3d  ",  tip  pi->prel; 
>tln( 

viprintfd,  ro«,  col-1,  PRE.COLOR,   7.5",  "         M)j 
} 
if (tip_pi->post  '.-  0)t 

viprintfd,  ron,  col+23,  POST  COLOR,  ■  7.3d  ",  tip  pi->post); 
)else( 

viprintfd,  ro»,  col*23,  POST  COLOR,  "Is",  ■         ■); 
} 

row++; 
) 
) 
} 

It  Function  to  update  pre  infonation  on  the  screen  «/ 
static  void  update  pre  infolptr  pi) 
PSRT.INFO  iptrjij 
t 

DEPT  «ptr_dept; 

PflRT.INFD  »tip_pi; 

int  row,  col; 

if (ptr_pi->pre  !»  0){ 

viprintflO,  ptr  pi->ro»,  ptr  pi->col,  PRE  COLOR,  "7.3d",  ptr  pi->pre); 
lelsel 

viprintflO,  ptr  pi->ro»,  ptr  pi->col,  PRE  COLOR,  "Is",  "      "); 
1 

if (ptr_pi->dept_no  ==  zooi_dept)i 
roH  =  zooi_ro«+l; 
col  =  zooi_col-13; 
forlptr_dept  =  dept.h;  ptr.dept  !=  NULL  U  ptr_dept->dept_no  !•  zooi_dept;\ 

ptr_dept  =  ptr_dept->next); 
iflptr.dept  ==  NULL)  print_errorp()j 

forltipji  =  ptr.dept->part.info;  tip  .pi   !=  NULL;  tipji  =  tip_pi->ne«tl< 
if  (tip_pi->pre  !=  OK 

viprintfd,  ron,  col-1,  PRE_C0L0R,  '  I3d  ',  tip_pi->prel; 
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lelset 

viprintfll,  ron,  col-1,  PRE_COLDR,  "Xs",  ■    "!; 
} 

ronttj 
> 
) 
) 

/»  Function  to  update  post  information  on  the  screen  »/ 
static  void  update_post_info(ptr_pi) 
PART.INFO  »ptr_pi;~ 
C 

DEPT  «ptr.dept; 

PfiRT.INFO  *t»pjsi; 

int  ro»,  cdIj 

if lptr_pi->post  !=  0)1 

viprint-f (0,  ptr_pi->ro«,  ptr  pi-kol  +  16,  POST  COLOR,  'Hi',  ptr  pi-l-post); 
lelset 

viprintflO,  ptr  pi->ro»,  ptr  pi->col*16,  POST  COLOR,  "Is",  ■      ">; 
) 

if  !ptr_pi->dept_no  "  zooi_depti( 
row  -  200«_ro»+l; 
col  =  zoos_cd1-13; 
forlptr.dept  =  dept.h;  ptr_dept  !=  NULL  U  ptr_dept->dept_no  !=  zooijjeptp 

ptrdept  »  ptr_dept->ne*t); 
if(ptr_dept  ==  NULL)  print_errorp(!| 

forltipji  =  ptr_dept->part.info;  tip.pi   !=  NULL;  t«p_pi  ■  tnp_pi->next){ 
ifltip_pi->post  !«  OK 

viprintfll,  row,  col*23,  POST  COLOR,  "  ".3d  ",  tip  pi->post!j 
>elu( 

viprintfll,  row,  col+23,  POST  COLOR,  "Is*,  *         "); 
) 

ro»**; 
} 
} 


/»  Function  to  update  product  intonation  on  the  screen  U 
static  void  update_prod_info(prod_ptr) 
PRODUCT  *prod  ptr;" 
{ 

viprintflO,  prodj>tr->ro»,  prod_ptr->col+3,  PR0DUCT_C0L0R,  "I4d",  \ 
(prod_ptr->l i»it-prod_ptr->qnty_producedl 1 | 

iflpageno  ~  31 { 

update  stat  prod  info()| 

) 
} 

/•  Function  to  update  product  intonation  on  the  statistics  «indo»  »/ 
void  update_stat_prod_infoO 
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int  ro«  =  16; 
int  col  =  14; 
PRODUCT  »tespj>rod; 

for(te«p_prDd  =  product;  tenp.prod  !«  NULL;  teipjrod  =  teip  prod->next,  ro»«){ 
viprintf (3,  row,  col,  STATJLS.COLOR,  "I3d",  te«p_prDd->qnty_producedi; 


} 


/»  Function  to  update  Activation  Report  in  the  statistics  «indo»  H 

void  update  act  report!) 

{ 

unsigned  long  int  total _t lie | 

unsigned  long  int  prod_ti«e,  setup_tiie,  idie_ti»e; 

int  prod,  setup,  idle; 

int  ro»,  col; 

DEPT  *te»p_d; 

MACHINE  «teip_»i 

row  =  5; 

col  =  54; 

for(te»p_d  =  deptji;  te«p_d  !=  NULL;  teap_d  =  te«p_d->ne«t!{ 

(Oflteap.i  =  teip_d->»ach;  te«p_»  !=  NULL;  te»p_»  =  te«p_i->neit){ 
total_ti»e  =  ti»e_no»j 
if  (total.tiie  !=~0K 

setup_ti«  =  te»p_i-Hiie_setup; 

prodjue  =  te»p_«->ti»ejiusy] 

iflte«p_e- '/instate  ~  !i! 

setup.tite  ♦«  (ti«e_no»  -  tetp_«->state_change_ti«ei; 

if  (te«p_«->i»state  ==  21 1 

prod_ti»e  +=  lti«e  no*  -  teip  »->state_change  tine!; 

} 

setup  =  (int)(((double)setup_tiie/ldouble)total_ti»e)*100L); 
prod  =  (int)t(ldouble!prod_ti«e/(doubleltotal_tiie)«100L); 
idle  =  lMHprod+setup); 

viprintf(3,  ro«,  col,  STAT_ACT_COLQR,  "13d",  prod); 
viprintf(3,  run,  cd1+7,  STAT_ACT_C0LOR,  ■13d",  setup); 
viprintf(3,  rem,  col+15,  STAT_ ACT  COLOR,  'Hd',  idle); 

mutt; 


} 


/»  Function  to  schedule  initial  setup  events  t/ 

int  initial  setupl) 

t 

DEPT  *te«p_d; 

MACHINE  iteip^; 
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PART.INFO  *teap_pi; 
int  i,  dept_no; 
char  pchar; 

for(i=0;  i  <  n_ptypesj  i++) t 
dept_no  •  routetiltOl; 
for (teupd  •  depthj  te«p_d  !«  NULL  He  teip_d->dept_no  !"  dept_no|\ 

te»p_d  =  teipjl->next); 
iflteip.d  ==  HULL)  print_errord(); 
i-f i teap_d->n«ach_i n_use  <  tesp_d->niachines){ 

for(te«p_r=te«p_d->«ach;te«p_t!=NIJLL  %k  te»p_i->istate!=Oj\ 
teip_«  =  teip_»->next); 

ifltetp.i  ==  NULLI  break; 

te»p_»->repeat  =  0; 
te«p_«->setup_for  ■  i*l; 
«ap_part_type(te>p_t->setup_for,  ipchar); 
teip_»->setup_for_in_char  =  pchar; 
teip_«->«state  =  Ij 
teap_i->state_change_ti«e  =  tiie_noN; 
schedulelSETUP,  ti«e_no«+lL,  teap_i->»ach_no,\ 

teap_d->dept_no,  te»p_s->repeat,\ 

teip_i->setup_for); 
te«p_d->niiacli_in_use*t; 


It  Function  to  schedule  load  events  if  there  are  free  lachines  »/ 

int  check_free_iachs(! 

t 

DEPT  tte»p_d; 

MACHINE  *te«p_i; 

PflRT.INFD  Heipjij 

int  no_free_»ach; 

int  njre; 

(or(te«p_d  =  deptj;  teip_d  !=  NULL;  te«p_d  =  te«p_d->nest){ 
no_free_iach  =  FALSE; 

foritnp.l  =  teip_d->iachj  te«p_«  !=  NULL;  te«p_»  =  teip_«->ne«t) { 
if(teip_»->istate  ==  OH 

if(teip_«->setup_for  !=  UNJTILIZEDH 

goto  found  free  each; 
) 
) 
goto  next; 
found_free_»ach: 

if (!nu_free_iach)( 

iflteip_i->«state  !«  UNJJTILIZEDU 

forlteipji  =  tetp_d->part.infoj  teip_pi   !=  NULL  VA 
!((teip_pi->ptype  ==  teip_i->setup_fnrl  H\ 
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Iteip_pi->repeat  ==  tenp_a->repeat)  );\ 

te»p_pi  =  te«p_pi->next); 
ifitenp.pi  ==  NULL)  print_errorp(l; 
njre  =  mach_proc_ptype(teip_d,  te«p_pi->repeat,\ 

te«p_pi->ptypel; 
if (te»p_pi->pre  >=  11{ 

schedulelLDfiD,  ti«e_no«+lL,  0,'\ 

te«p_d->dept_no,  teip_»->repeat,  teip_»->setup_for) 


next: 


int  niach_proc_ptype(dept_ptr,  repeat,  ptypel 
DEPT  »dept_ptr; 
iirt  repeat,  ptype; 
C 

MCHIHE  Hachjtr; 

int  count  =  0; 

for(»ach_ptr  =  dept_ptr->«ach;  lachjtr  !=  NULL; \ 

•achjrtr  =  »ach_ptr->ne*t)  { 
ifl(«ach_ptr->repeat  ==  repeat)  V,.  («ach_ptr->setup_far  ==  ptype) H 
ifi«ach_ptr->«5tate  ==  2)( 

rount++; 
} 


return (count): 


} 


int  update_20o«_nindo!t!«ach_no,  estate,  repeat,  part  type) 
int  iach_no,  estate,  repeat; 
char  part  type; 
C 

int  ro»,  col; 

ro»  =  (i!ooe_ro»+l)M(iach_no-l)t2)); 
col  =  zooe_colH; 
snitch  ItrtateM 
case  0: 

viprintfll,  roe,  col,  BACHINE.COLOR,  "lc\   IDLE); 
break; 
case  1: 

if (repeat  >  0)1 

viprintfll,  roe,  col -3,  B.BLUE+F.6REEN+INT,  "Zld",  repeat); 
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)else( 

viprintfll,  row,  col-3,  B_BLUE+F_SREEN+INT,  "Jc1,   '   'i; 

viprintfll,  ro»,  col-2,  B_BLUE+F_BREEN+INT,  n7.c",  part  type); 
viprintfll,  run,  col,  NfiCHINE_CuLOR*BLNK,  -7.c",  SETTIN6  UP); 
break; 
case  2: 

viprintfll,  run,  col,  rMCHINEJOLOR+BLNK,  '7c",  PROCESSING!; 
break; 
default: 

break; 
> 
> 

/*  Function  to  update  the  inventory  costs  in  statistics  »indo»  H 
static  void  update_inv_finance(! 

int  i,  j,  ro»,  col; 

long  inv_costs; 

RAN  tte«p_ra»| 

PRODUCT  »teip_prod; 

int  r»»_costtt01,  prodjrosttlO],  no_of_opns[10]; 

inv_costs  =  OLj 

for(i=0,  teip.raw  =  ra«.iat;  tenp.raii  !=  NULL;  teip.ran  =  te.p  ra»->next,  i++H 

ra»_costIi]  =  temp  ra»->cost; 
j 

for(i=0,  teipjrod  =  product;  tsup.prod  !=  NULL;  tetpjrod  =  teip_prod->next,  it+H 

prod  cost [i ]  =  teup  prod->price; 
) 
forli  =  0;  i  <  njitypes;  i«M 

fori]  =  0;  routeiiHj]  !=  0;  j++!{ 

} 

no  of  opnsli]  =  j; 
} 
forli  =  0;  i  <  n_ptypes;  i«){ 

forlj  =  0;  routitiltj]  !=  0;  j+t){ 

inv_costs  =  inv_costs  +  (countEi ]£ j]  t  (ra«_costti]  +  j  »  \ 

((prod .cost Ci]  -  ra»_cost[i])/no_of_opns[il))l/10; 

) 

ro»  =  stats- >fin_ro«; 
col  «  stats->fin_col; 
viprintf!3,  rcw*5,  col,  STflT.FIN.COLOR,  "I71d\  inv  costs); 

expense=inv_costs+stats->ra«_«at_exp+stats->«at_hand_exp+stats->other  op  exp; 
cash  =  stats->start_cash  +  stats->sales_revenue  -  expense; 
stats->cash_no»  ■  cash; 
updatejinancell; 
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void  initon  handO 
{ 

int  i,  j,  dept_no; 
DEPT  »teip.di  " 
PflRT.INFD  »te«p_pi; 

far (i  =  0;  i  <  njtypes;  i++!{ 

forfj  =  0;  rmitetiltj]  !=  0;  j++){ 
deptjio  =  routeti  3[ j]; 

for!te»p_d  =  deptji;  teip_d  !=  NULL  U  teip_d->deptjio  \-  dept_noj\ 

teipj  =  te»p_d->next) ; 
torltetpji  =  teip_d->part_info;\ 

teipji   !=  NULL;  tesp  pi  =  teip  pi->next){ 
HfroutetiHj+1]  ==  OK 

update  on  handlteip  pi); 
) 
) 
} 
} 
) 

static  void  update  on  hand (ptr  pi! 

PARTJNFO  tptr  pi;" 

{ 

int  roil  =  16; 

int  col  =  23; 

int  dx  =  0; 

dx  =  ptr_pi->ptype; 

viprintfl3,  ron+dx-i,  col,  5TflT_SLS.C0LDR,  -13d",  ptr_pi->post); 

I*  Function  to  update  inventory  infor»ation  on  the  statistics  »indo»  »/ 

void  update  Stat  inv  info!) 

t 

int  ro»  ■  16; 

int  col  =  28; 

DEPT  ttetpd; 

PflRTJNFO  *te«p_pi,  tte«p_du«iy_pi; 

int  i,  j,  «,  dept_no,  repeat; 

int  inventorytlO]; 

forli  =  0;  i  <  njjtypes;  i++){ 

Forfj  =  0;  routetiltj]  !=  0;  j++K 
countliltj]  =  0; 

) 

inventorytil  ■  0; 
) 
forli  =  0;  i  <  njitypes;  i++){ 

k  =  0; 

lorlj  =  0;  routetiltj]  !=  0;  j+*){ 


154 


repeat  =  FRLSE| 

deptjio  =  routetiHj); 

forlteipj  ■  dept_h;  teip_d  !•  NULL  M  teip_d->dept_no  '.-  dept_no;\ 

te«p_d  =  te»p_d->nextl; 
for(tetp_pi  =  te»p_d->partjnfoj\ 

te«p_pi   !=  NULL  H  te«p_pi->ptype  !«  (i*l);\ 
teippi  =  teip_pi->next); 
forlteipjunyjii  =  tEap_pi;  teip_duny_pi   !=  NULL  11  \ 
teip_duny_pi->ptype  ==  <i +1 1 ;  \ 

tenp_duaay_pi  =  teip_duMy_pi->next){ 
iflteip_dui«y_pi->repeat  ==  ])( 
k  >  k  Hi 
repeat  =  TRUE) 
iflk  !«  1){ 

iflrouteMtJ+l!  ==  OH 

count UHJ]  =  teip_duny_pi->pre  ♦  counttiHjl; 

lelset 

count [il[j]=te«p_duiiyj>i->pre*te«p_du»«y_pi->post\ 

»  counttilljl; 
) 
> 
lelset 

repeat  =  FALSE; 
} 
) 
if (repeat  «  FALSE)! 

iflroutetiltj+ll  ==  OH 
counttiHjl  =  te«p  pi->pre  *  counttiHjl; 
lelset 

counttiHjl  -  tetp  pi->pre  ♦  te«p  pi->post  *  counttiHjl; 
) 
lelset 

iflk  ==  1)1 

if  (routetiH  j+1]  ==  OH 
counttiHjl  =  teip  pi->pre  *  countliltj!; 
)else( 

counttiHjl=te«p  pi->pre+teip  pi->post*count{iHjl; 
) 
) 
) 
1 
) 
Ford  =  0;  i  <  n_ptypes;  i**,  ron+tK 

forlj  =  0;  routetiHj]  !=  0;  jt+)( 

inventoryti]  =  inventoryti]  *  countliltj]; 
} 

viprintf(3,  ro»,  col,  STAT  SLS  COLOR,  "lid1,  inventoryti)); 
} 

update  inv  financed; 
) 
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•include  <stdio.h> 

tindude  "user\opt.h" 

•include  "user\vi.h" 

tindude  "user\std.h" 

/»  Functions  defined  in  setscr.c  —  »/ 

void  set.screentvoidl; 

void  dra«_depts!void); 

void  dra« .routing (void); 

void  dran.ranjiats(void); 

void  dra»_products(void); 

void  dra«_«enu(int)j 

void  print  aodes(void) ; 

void  reset_quantity(voidl; 

void  dran.mitial.scrlvoid); 

/»  Function  to  paint  the  initial  screen  «/ 
void  set  screen!) 


int  i,  row,  col; 

vids(O); 

viprintflO,  0,  0,  S.TEIT.COLDR,  "Is",  -KEEK  DAY"); 

viprintflO,  1,  1,  CLOCK.COLOR,  'Is',   "00"); 

viprintflO,  1,  7,  CLDCK.COLOR,  "Is",  "0")j 

viprintflO,  3,  2,  S.TEXT.CDLDR,  "Is",  "TII1E:"); 

viprintflO,  4,  2,  CLDCK.COLOR,  "Is",  "00:00"); 

viprintflO,  t,  0,  S.TEXT.COLOR,  "Is",  "CASH1); 

viprintflO,  7,  0,  CASH.COLOR,  "Is",  ■      ■); 

viprintflO,  9,  0,  S.TEXT.COLOR,  "Is",  "EXPENSE"); 

viprintflO, 10,  0,  EXPENSE.COLOR,  "Is",  "      "I; 

viprintflO, 12,  0,  S.TEXT.COLOR,  "Is",  "Pace:"); 

viprintflO, 12,  4,  CLOCK.COLOR,  "Is",  "1"); 

for(ro»=0;  ro«<22;  ro»**)( 

viprintflO,  ro»,  9,  TITLE.COLOR,  "Zc",  '\xB3'l; 

viprintfiO,  5,  9,  TITLE.COLOR,  "Ic",  '\xPA'l; 

viprintflO, 11,  9,  TITLE.COLOR,  "Ic",  '\xB4'l; 

viprintflO, 13,  9,  TITLE.COLOR,  "Ic",  '\xB4'); 

viprintflO, 21,  9,  TITLE.COLOR,  "Ic",  \iD9); 

forlcol=0;  col<9;  col++I( 

viprintflO,  5,  col,  TITLE.COLOR,  "Ic",  '\«C4'I 
viprintflO.il,  col,  TITLE.COLOR,  "Ic",  '\xC4'l 
viprintflO, 13,  col,  TITLE.COLOR,  "Ic",  '\xC4'l 
viprintflO, 21,  col,  TITLE.COLOR,  "Ic",  '\xC4') 

if  (state  ==  TRUEH 

viprintflO,  1,  1,  CLOCK.COLOR,  "I2d",  »eek.no«); 

ifl«ee«_no»  <  10)  viprintflO,  1,  1,  CLOCK  COLOR, 

viprintflO,  1,  7,  CLOCK.COLOR,  "lid",  day'noul; 


'0'); 
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> 


viprintflO,  4,  2,  CLOCK.CQLOR,   'VUlKi',  tir_no»,  iin  no»l; 
tftaift.rtDM  <  10)  viprintflO,  4,  5,  CLOCK.CQLOR,  *lc","'0'); 


dra*_ienti(l)! 
dran_»enu(2); 
dra*.ienu(3); 
dra»_«enu(4) j 
dran_aenu(5l ; 
dran.deptsl); 
if  (state  ==  TRKX 

dra»  initial  serf 
> 

draH.routingll; 
dra*_ra«_iats(); 
dra»_products(lj 
update.financel); 
position.cursorlO,  23,  0) 
position.cursord,  23,  0) 
po5ition_cursor (2,  23,  0) 
position.cursord,  23,  0) 


I*  Function  to  dra«  the  «enus  »/ 
void  dra»_«enu(»enii_no) 
int  tenu.na; 
t 

int  i; 

iflienu.no  »■  1)( 

for (i=0j  i  <  90j  it*)! 
viprintf(0,24, 
} 

viprintf  10,24,  0,  MENU 
viprintflO, 24,  2,  KENU 
viprintf  10,24,  a,  HENU 
viprintflO, 24, 10,  MEHU 
viprintflO, 24, 20,  MENU 
viprintf 10,24,22,  MENU 
viprintflO, 24, 28,  MENU 
viprintflO, 24, 29,  HENU 
viprintflO, 24, 36,  MENU 
viprintf  10,24,37,  MENU 
viprintflO, 24, 48,  KEtW 
viprintf 10,24,49,  NENU^ 
viprintf 10,24,58,  nENlf 
viprintflO, 24, 59,  NENu] 
viprintflO, 24, 65,  ItEfW 
viprintflO, 24, 66,  NEMl' 
viprintflO, 24, 71,  HENu| 
viprintf 10,24,76,  HENlT 


i,  MENU.KEY.COLDR,  'Ic',   '   '); 


.KEY.COLOR, 

■Is1 

•F2-); 

.FNC.COLOR, 

■Is- 

"Zoo*")] 

.KEY  COLOR, 

■Is" 

"F3')i 

_FNC  COLOR, 

■l»- 

"Calendar"); 

.KEY.COLOR, 

•W 

■F4Vj 

.FNC.COLOR, 

"Is" 

■Stat")! 

.KEY.CDLOR, 

■Is-, 

■F'lj 

.FNC.COLOR, 

•Is-, 

"reeze"); 

.KEY.COLOR, 

■Is', 

■B-); 

.FNC.COLOR, 

■Is", 

"reakpoint'l; 

.KEY.COLOR, 

■Is1, 

■S-I; 

.FNC.COLOR, 

■Is-, 

'chedule'l; 

.KEY.COLOR, 

■Is", 

■ft; 

.FNC  COLOR, 

■Is', 

"rinfl! 

.KEY.COLOR, 

■Is-, 

'»■!( 

.FNC.COLOR, 

■Is-, 

■uif); 

.KEY.COLOR, 

■Is-, 

■<+/->■); 

.FNC.COLOR, 

■Is', 

■Pace')! 
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iflienu.no  --  2K 

for(i=0;  i  <  80;  IH){ 
viprintf (1,24, 
> 

viprintf(l,24,  0,  HENU_KEY_COL0R 

viprintf  (1,24,  2,  BENU.FNC.COL0R 

viprint*  (1,24,12,  BENU.KEY.COLOR 

viprintf (1,24,14,  HENU~FNcIcOL0R 

viprintt (1,24,21,  BENu"kEy]cOLOR 

viprint-f  (1,24,23,  BENU.FwfcOLOR 

viprintf (1,24,33,  BENU.KEY.CDLOR 

viprintf (1,24,35,  BENU_FNC_COLOH 

viprintf (1,24, 41,  BENU.KEY.COLOR 

viprintf (1,24,42,  BENu"fnc]cOLOR 

viprintf (1,24,49,  BENU.KEY.COLOR 

viprintf (1,24,50,  BENU.FNC.CDLOfl 

viprintf (1,24, 57,  MENU  KEY  COLOR 

viprintf (1,24,58,  BENU.FNC.COLDR 

viprintf (1,24, 64,  BENU.KEY.COLOR 

viprintf  (1,24,65,  BENU.FNC.COLDR 

viprintf (1,24,70,  BENU.KEY^COLDR 

viprintf (1,24,75,  BENU  FNC  COLOR 

} 

if  lienu.na  ==  31  ( 

for(i=0;  i  <  80;  !♦*)( 


BENU.KEY.COLOR,  'Ic" 


'I; 


'is' 
"Is" 

•Is" 

■Is" 

■7.5" 
'7.5' 

■Is" 
"Is" 
■Is" 
"Is" 

"7.S" 

■Is" 
"Is" 
"Is" 
"Is" 
"Is" 
■Is" 
"Is" 


■Fl')| 

"Overviex"); 

"F2"); 

■Dept«">; 

■F3")i 

"Calendar"!; 

W)| 

"Stat"); 

■F"l; 

"reeze"}; 

"CI; 

"hange"); 

"P"l; 

"rint"); 

■Q"l; 

■uifl; 

■<«->"); 

■Pace'); 


viprintf  12,24,  i,  BENU.KEV.COLOR,  "Ic" 


')| 


} 

viprintf (2,24,  0,  B_BLUE*F.BRONNtINT,  "Is",  "ScanKeys"); 

viprintf (2,24,  9,  BENU.KEY.COLOR,  "Is  Iclc",  "PgUp  PgDn", 

viprintf (2,24,23,  BENU.KEY.COLOR,  "Is",  "Fl"); 

viprintf (2,24,25,  BENU.FNC.CDLOR,  'Is1,  "Overvien"); 

viprintf (2,24,35,  BENU.KEY.COLOR,  "Is1,  "F2"); 

viprintf (2,24,37,  BENU_FNc[cOLOR,  "Is",  "Znoi"!; 

viprintf(2,24,43,  BENU.KEY.COLOR,  "Is",  "F4"!; 

viprintf (2,24,45,  BENU.FNC.COLDR,  "Is",  ■Stat">; 

viprintf (2,24,51,  BENU.KEY.COLOR,  "Is1,  "E'l; 

viprintf (2,24,52,  BENU.FNC.CDLOR,  'Is-,  "dit'lj 

viprintf (2,24,57,  BENU.KEY.COLOR,  "Is",  'F"lj 

viprintf (2,24,58,  BENU.FNC.CDLOR,  "Is",  "ree:e"}; 

viprintf (2,24,45,  BENU.KEY.COLOR,  "Is",  "S"l; 

viprintf (2,24,64,  BENU.FNC.COLDR,  "Is",  "uifl; 

viprintf (2,24,71,  BENU.KEY.COLOR,  "Is",  "<*/->"); 

viprintf (2,24,76,  MENU  FNC  COLOR,  "Is",  "Pace"!;' 
) 
iftienu.no  ==  4K 

~for(i=8;  i  <  72;  i«){ 

viprintf (3,24,  i,  BENU.KEY.COLOR, 


■\«18',  \xl<?'): 


} 

viprintf (3,24,  9,  BENU.KEY.COLOR,  "Is", 

viprintf (3,24,11,  BENU.FNc'cOLOR,  "Is", 

viprintfi.3,24,21,  BENU_KEy"cOLOR,  "Is", 


'Fl"); 
'Overvie«"); 
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vipr 
vipr 
vipr 
vipr 
vipr 
vipr 
vipr 
vipr 
vipr 
vipr 
vipr 

) 

ifftenu.no  ■ 
vipr 
vipr 
vipr 
vipr 
vipi 
vipr 
vipr 
vipr 

> 

if fnenu.no 
vipr 
vipr 
vipr 
vipr 
vipr 
vipr 
vipr 
vipr 


intf(3,24,23 
intf  (3,24,29 
intf (3,24,31 
intf (3,24,41 
intf (3,24,42 
intf (3,24,49 
intf  13,24,50 
intf  (3,24,56 
intf  (3,24,57 
intf  (3,24,62 
intf  (3,24,67 

5){ 
intf  (0,24,28 
intf  (0,24,29 
intf (1,24,41 
intf (1,24,42 
intfi2,24,57 
intf (2,24,58 
intf (3,24,41 
intf (3,24,42 

ill 
intf (0,24,28 
intf (0,24,29 
intf (1,24,41 
intf (1,24,42 
intf (2,24,57 
intf (2,24,58 
intf (3,24,41 
intf (3,24,42 


BENU.FNC .COLOR 
BENU.KEY.COLOR 
BENU.FNC.COLOR 
BENU.KEY.COLOR 
BENU.FNC.COLOR 
BENU.KEY.COLOR 
BENU.FNC .COLOR 
BENU.KEY.COLOR 
BENU.FNC.COLOR 
BENU.KEY.COLOR 
HEKU  FMC  COLOR 


BENU.KEY.COLOR 
BENU.FNC.COLOR 
NENU_KEY~COLOR 
BENU.FNC.COLOR 
BENU.KEY.COLOR 
KENU.FNC.COLOR 
BENU.KEY.COLOR 
BENU  FNC  COLOR 


"Is" 
■It" 
"Is" 

.,,. 
■Is" 

■15" 

"Is" 

■Is1 
■Is" 
■Is" 

"is" 


■!»•, 

■Is', 
■Is1, 
"Is", 
■Is', 
•Is-, 
■Is", 
■Is", 


BENU.KEY.COLOR, 
BENU.FNC.COLOR, 
BENU.KEY.COLOR, 
BENU.FNC]COLOR, 
BENU.KEY.COLOR, 
BENU.FNC.COLOR, 
BENU.KEY.COLDR, 
BENU.FNC.COLOR,  'It', 


W, 

Is", 
It", 
Is", 

Is1, 
Is1, 
Is', 


"Zooi"); 
■F3->; 

'Calendar'); 
"F"l; 
'reeze'}; 
.p.,, 

Vint'); 

■Q'li 

"uiflj 

"<+/->"); 

"Pace"): 


■»*>! 

"estifte"}; 

"R"l; 

"esuie"); 

"R"); 

"esuie'l; 

•R'l; 

■esine"); 


"F">; 

"reeze'l: 

■F-); 

"reeze'l; 

"F"l; 

'reeze"); 

"F'l; 

"reeze'l; 


ifftenu.no 
fori 

> 

vipr 
vipr 
vipr 
vipr 
vipr 
vipr 


71! 
i=22;  i  <  80;  i*+>{ 

viprintf(2,  24,  i,  BENU.KEY.COLOR,  "It" 


intf (2,  24,  36,  BENU.KEY.COLOR 

intf(2,  24,  37,  BENU.FNC.COLOR 

intf (2,  24,  49,  BENU.KEY.COLOR 

intf (2,  24,  50,  BENU.FNC.COLOR 

intf (2,  24,  59,  BENU.KEY^CDLOR 

intf (2,  24,  62,  HENU.FNc'cDLOR 


■Is-,  ■»■); 

"Is",  "eleteEvent"); 

■Is",  "A"l; 

"Is",  "ddEvent'l; 

■Is",  "Esc'l; 

"Is" ,  "Done"): 


ifftenu.no  = 
fori 

) 

vipr 
vipr 
vipr 
vipr 


=  81  ( 

i=22;  i  <  80;  i++l( 

viprintf(2,  24,  i,  BENU.KEY.COLOR,  "Ic" 


'l! 


intf (2,  24,  22,  B_BLUE*F_RED*INT,  "Is",  "Select  Event  by  ScanKeys'l; 

intf 12,  24,  48,  BENU.KEY.COLOR,  "Is",  "Del"); 

intf (2,  24,  51,  BENU.FNC.COLOR,  "Is",  "Delete"); 

intf (2,  24,  59,  BENU.KEY.COLOR,  "Is",  "Ins"); 
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viprintf(2,  24,  62,  HENU.FNC.COLOR, 
viprintf (2,  24,  72,  HENU.KEY.COLOR, 
viprintf (2,  24,  75,  HENU.FNC.COLOR, 
} 
ift«enu_no  ==  ?)(. 

~for(i=22;  i  <  80;  i*+) < 

viprintf 12,  24,  i,  HENU.KEY. 
) 

viprintf (2,24, 23,  HENL.tCEV.COLOR, 
viprintf (2,24,25,  HENU.FNC.CDLOR, 
viprint-f (2,24,35,  HENU.KEY.COLOR , 
viprintf (2,24,37,  HENU.FNC.CDLOR, 
viprintf (2,24, 43,  HENU.KEY .COLDR, 
viprintf (2,24,45,  HENU.FNC.CDLOR, 
viprintf (2, 24, 51,  HENU.KEY.COLOR, 
viprintf (2, 24, 52,  HENU.FNC.CDLOR, 
if (!freeiedt{ 

viprintf (2,24,57,  HENU.KEY.! 

viprintf (2, 24, 5B,  HENU.FNC. 


"Undelete"!; 
"Esc"); 

"Done"): 


}»UeC 


viprintf(2,24,57,  HENU.KEY. 
viprintf(2,24,5B,  HENU.FNC 


COLOR,  "Ic",  '  '); 

Is",  "FH; 
Is",  "Overview"); 
Is",  "F2"); 
Is",  "Zdop"); 
Is",  "F4"); 
Is",  "Stat"); 
Is',  "E'lj 
Is",  "dit'l; 

COLOR,  "Is",  "F"l; 
COLOR,  "Is",  "reeze'l; 

COLOR,  "Is",  "R"l; 
COLOR,  "Is",  "esiine"); 


viprintf (2,24,65,  HENU.KEY.COLOR,  "Is",  "Q 

)j 

viprintf (2,24,66,  HENU.FNC.CDLOR,  "Is",  "ui 

I'll 

viprintf(2,24,71,  HENU.KEY.COLOR,  "Is",  '« 

/->■>; 

viprintf(2,24,76,  HENU.FNC.CDLOR,  "Is",  "Pace"); 

if Eienu 

jo  ==  10)  ( 
if (pageno  ==  0){ 

for(i=0;  i 

<  80 

:  i*t)( 

viprintf (0,24,  i,  HENU.KEY.COLOR, 
} 

•If,   '   •); 

viprintf (0, 

24 , 

15,  HENU.KEY.COLOR 

"Is", 

■K")| 

viprintf (0, 

», 

16,  HENU.FNC.COLOR 

"Is", 

"rite"); 

viprintf (0, 

2'i 

22,  HENU.KEY.COLOR 

"Is", 

"P"); 

viprintf (0, 

24, 

23,  HENU.FNC.COLOR 

"Is", 

"urchase"); 

viprintf (0, 

2', 

32,  HENU.KEY.COLOR 

"Is", 

"S"); 

viprintf (0, 

24, 

33,  HENU.FNC.COLOR 

"Is", 

"etup"); 

viprintflO, 

V, 

39,  flENulKEY'cOLOR 

■Is1, 

•L1); 

viprintf (0, 

2*, 

40,  HENU.FWfcOLOR 

■Is", 

"oad*); 

viprintflO, 

24, 

45,  HENU.KEY .COLDR 

"Is", 

"H"); 

viprintflO, 

2«, 

46,  HENU.FNC.COLOR 

"Is", 

"ove"); 

viprintflO, 

24, 

51,  HENU.KEY.COLOR 

■Is", 

"Esc'l; 

viprintflO, 

24, 

54,  HENU.FNC] COLOR 

"Is", 

"Done"); 

if (pageno  ==  2){ 

for(i=22;  i 

(  80;  i*t){ 

viprintf (2,24,  i,  HENU.KEY. 
j 

COLOR, 

"Ic",   '   '1; 

viprintf (2, 

2', 

33,  HENU.KEY.COLOR 

■Is", 

■P"l; 
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] 


viprintf !2,  24,  34,  HENU.FNC.COLOR,  "Is1,  "urchass" 

viprintf (2,  24,  43,  KENU.KEY.CQLOR,  "Is",  "S'lj 

viprintf (2,  24,  44,  hBU.FNC.COLOR,  "Is",  "etup"!; 

viprintf (2,  24,  50,  IIENU.KEY.COLDR,  "Is",  "L'l; 

viprintf (2,  24,  51,  HENU.FNC.C0LOR,  "Is",  "odd"); 

viprintf (2,  24,  56,  IIENII.KEY.COLOR,  "Is",  "«"); 

viprintf (2,  24,  57,  NENU.FNC.COLOR,  "Is1,  "ove"); 

viprintf  (2,  24,  62,  IIENII.KEY.COLOR,  "Is",  "Esc"); 

viprintf (2,  24,  65,  NENU.FNC.COLOR,  "Is",  "Done'); 


) 

ifftenu.no  «  11) { 

far <i=0;  i  <  80;  i+«( 

viprintf (0,24,  i,  MENU  KEY  COLOR,  "Ic", 

} 

viprintf (0,24,  0,  IIENU.KEY.COLDR, 

viprintf  (0,24,  2,  NENU.FNCJOLOR, 

viprintf (0,24,  B,  DENU.KEY.CDt.OR, 

viprintf (0,24,10,  «ENU_FNc]cOL0R, 

viprintf 10,24,20,  NENU.KEY.COLOR, 

viprintf (0,24,22,  MENU  FNc'cOLDR, 

if  (IfreezedH 

viprintf (0,24,2B,  NENU.KEY.COLOR,  "Is",  "F")| 
viprintf (0,24,29,  NENU.FNC.CDLOR,  "Is",  "reeze"); 


,  "Is", 

"F2">; 

,  "Is", 

"Zoo«"); 

,  "Is", 

"F3"); 

1  "I**, 

"Calendar"); 

,  "Is", 

■F4"); 

,  "Is", 

"Stat"!; 

JelseC 


viprintf (0,24,29,  KENU.KEY.COLDR,  "Is" 
viprintf (0,24,29,  HENU.FNC.COLOR,  "Is" 


"R"l; 
"esuae"); 


viprintf (0,24,34,  NENU.KEY.COLOR,  "Is",  "B'l; 

viprintf (0,24,37,  NENU.FNC.COLOR,  "Is",  "reakpoint") 

viprintf 10,24,48,  BENU.KEY.COLOR,  "Is",  "S"!; 

viprintf (0,24,49,  NENU.FNC.COLDR,  "Is",  "chedule"); 

viprintf (0,24,58,  NENU.KEY.COLOR,  "Is",  "P"l; 

viprintf (0,24,59,  NENU.FNC.COLOR,  "Is",  Vint"!; 

viprintf (0,24,65,  HENU  KEY  COLOR,  "Is",  "Q"l; 

viprintf !0,24,6A,  NENU.FNC.COLOR,  "Is",  "uiflj 

viprintf (0,24,71,  MENU  KEY  COLOR,  "Is",  ■<*/->"); 

viprintf (0,24,76,  NENU.FNC  COLOR,  "Is",  "Pace"!; 


/*  Function  to  dran  the  departients  */ 

void  draw  deptsO 

( 

int  i,  j,  k,  roil,  col; 

DEPT  *tetp  d; 

MftCHINE  tteip  ■; 

PART.INFO  *teip_pi; 

forltenp.d  =  dept.h;  teip.d  !=  NULL;  tetp.d  =  te»p_d->nent) t 

viprintf (0,  te>p_d->ro»-l,  te«p_d:>CDl-5,  TITLE.COLOR,  "Is  Id",  \ 


161 


"Departaent",  te«pJ->dept_no!; 
for(teip_i  =  teip_d->iach;  teip_i  !=  NULL;  te§p_«  ■  teip_»->neitK 

row  -   te«pjD->row; 

col  ■  teip_i->col; 

viprintflO,  ron,  col,  B_RED*F_NH1TE*INT,  "Id",  te«p_i->iach_no); 

viprintflO,  ro»+l,  col-2,  BJIUE+FJROHIWNT,  ,Ic,,",\«B3')| 

viprintf SO,  ron+1,  col+2,  BJLUE+FJROIMtINT,  "le",    \xB3>i 

viprintflO,  ron+1,  col-1,  B  BLUE+F  HHITE+INT,  '7.5',  ■      "!; 
> 
forlteippi  •  te»p_d->part_info;  teippi   !=  NULL;  te«p_pi  ■  te«p_pi ->rtextl t 

row  -  te»p_pi->row; 

col  »  te»p_pi->col; 

if  (teip_pi->repeat  >  OK 

viprintflO,  ro«,  col-2,  B_BLACK+F_6REENMNT,  "Id",  tnp_pi->repeat>; 

viprintflO,  ron,  col+19,  BJLACW  SREEN+INT,  "!d",  teip  pi->repeatl; 

> 

viprintf  10, ro«, col -l,BJLftCK+FJROHNtINT,"Ic'1tB«p_pi->ptype.in_char!; 

viprintf (0,ro«, col *20,B_BLftCK*FJROKN»INT,'Jc",te«p_pi->ptype_in_char)! 

if  (teip_pi->pre  >  OK 

viprintflO,  row,  col,  PRE  COLOR,  "13d",  teap  pi->prel; 

lelsef 

viprintflO,  ro»,  col,  PRE  COLOR,  "Is",  "      ")| 

> 

if lteip_pi->post  >  OK 

viprintflO,  ro»,  colHi,  POST  COLOR,  "7.3d",  te*p  pi->post); 

lelseC 

viprintflO,  ron,  col+14,  POST  COLOR,  "Is",  '   '); 

) 

viprintflO,  roil,  col»3,  B_6REEN»FJR0MMNT,  "7.c\   '\xB3'li 

viprintflO,  row,  col+15,  B.SREEN*F_BRO»Nt[NT,  "Ic",   '\<B3'); 

viprintflO,  ron,  col+4,  STIIIE_COLOR,  "7.5",  "      "); 

viprintflO,  ro»,  coM2,  KTtKE  COLOR,  "Is",  "      "I; 
> 


/•  Function  to  print  the  routing  aatrix  */ 

void  dra»_routing(l 

{ 

int  i,  j,  ran,  col; 

char  pchar; 


row  =  routing_row; 
col  ■  routingcol; 

viprintflO,  row,  col-1,  TITLE.COL0R,  "7.5",  "R0UTIN6"); 
viprintflO,  ++row,  col-5,  R0UTE.C0L0R,   "Is",  "Type       route"); 
for(i=0;  i  (  njtypes;  i**K 

col  =  routing_col; 

•apjarttypeli*!,  Ipcharl; 

viprintf  lo,  ++row,  col-4,  ROUTE.C0L0R,  "2c  Ic",  pchar, 
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for  (j=0j  j  <  laxjjps;  j*+lf 
iflroutsiillj]  >  OK 

viprintflO,  run,  col++,  ROUTE  COLOR,  'Id",  routed ][ j3) j 
iflroutetiHj+1]  >  OH 

viprintflO,  ran,  colt*,  ROUTE.COLDR,  "lc",   'VxAF'l; 


} 


} 


} 

/»  Function  to  dra»  the  ran  «aterials  and  print  the  costs  »/ 

void  draw  ran  «ats() 

{ 

int  rod,  col; 

RM  *teip_ra»; 

char  pchar; 

ro»  »  ra»_«at_ro»; 
col  =  ra»_iat_col; 

viprintflO,  ro«,  col,  TITLE.CQLDR,  7.5",  -Ran  Materials:'); 
for (tNp.ru  --   ra»_iat;  te«p_ra«  !=  NULL;  teip_ra»  -  te»p_ra«->nextl{ 
«ap jart_type(te«p_ra»->ra«_«at_no,  Irpchar) ; 
viprintflO,  te»p_ra«->ron,  teip_ra»->col,  C«L_FNC_C0LQR,\ 

'  Jc:  ",  pchar); 
viprintflO,  teip_ra»->ro»,  teip_ran->coH-4,  REV,\ 
ZcI2d  ",  T,  te«p_ra«->cost); 


/*  Function  to  draN  the  products  *l 

void  dra»  products!) 

( 

int  roil,  col; 

PRODUCT  »te»p_prod; 

char  pchar; 

ro«  =  prodron; 
col  *  prod.coi; 

viprintflO,  row,  col,  TITLE.COLDR,  "Is",  "Products  to  lie  sold:'); 
forltenp.prod  ■  product;  teupjrod  !>  NULL;  te.pjrod  =  teup  prod-:>nexti( 
■ap_part_type(te«p_prod->prod_no,  Spchar^; 
viprintflO,  te«p_prod->roK,  temp  prod-kol,\ 
PR0D_HD_C0L0R,  "lei",  pchar); 
viprintflO,  tetp  prod->ro«,  teip  prod->co!+2,\ 
PRODUCT.C0L0R,  "ISP,  te.p_prod->li.it-te.pj>rad->qnty_produced); 


I*  Function  to  reset  the  quantity  produced  for  the  next  nee*  H 
void  reset_quantity() 
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PRODUCT  »teip_prod; 

for (teip .prod  =  product!  teipjrod  '.-  NULL;  teip.prod  «  te«p_prod-;next){ 
if lte«p_prod->Iiiit-te»p_prod->qnty_produced  ==  OK 

teip  prod->qnty  produced  =  0; 
} 

) 


; 


/•  Function  to  print  nodes  H 

void  print  «odes() 

{ 

Idefine  HODEJXT.CDLDR    BJLACIWJROKNtINT 

♦define  HDDE_CDLOR  B_BLlfE+F_C¥fiN+INT 

viprintflO,  14,  2,  TITLE.COLOR,  'Is",  "MODES'); 
viprintflO,  15,  0,  BODEJXT.COLOR,  'Is1,  "Purchase:"); 
viprintflO,  17,  0,  HODE.m.COLOR,  "Is",  "Setup:"); 
viprintflO,  19,  0,  MODE.TXT.COLOR,  "Is",  "Hove:"); 
if lautD_purchase!( 

viprintflO,  16,  3,  MODE  COLOR,  "Is",  '  Auto  "); 
)else[ 

viprintflO,  16,  3,  MODE  COLOR,  "Is",  -Manual") ; 
} 
if  lautosetupH 

viprintflO,  18,  3,  MODE  COLOR,  "Is",   "  Auto  "I; 
Jelse! 

viprintflO,  18,  3,  HDDE.COLOR,  "Is",  "Manual"); 

if lauto_aove)l 

viprintflO,  20,  3,  MODE  COLOR,  "Is",  "  Auto  "I; 
)else{ 

viprintflO,  20,  3,  MODE.COLQR,  "Is",  "Manual"); 

} 

void  dra»  initial  scrl) 
{ 

int  ron,  col; 

DEPT  »te«p_d; 

MACHINE  Heip.i; 

forlte«p_d  =  deptj;  teipjj  !=  NULL;  te«p_d  =  te.p_d->ne*t){ 

for!te«p_«  =  teip_d->«ach;  te«p_»  !=  NULL;  te«p_«  =  teip_<->nejt)t 
row  =  teip_«->ron; 
col  =  te«p_i->col; 
snitch  (te«p_i->»state){ 
case  0: 

iflte»p_«->setup_for  !=  UN.UTILIZEDK 
if lteip_»->repeat  >  0){ 
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viprintflO,  rw+1,  col-1,  B_BLUE+F_6REEM+I«T, \ 
"Zld",  te«p  i->repeat); 
} 
viprintf (0,raii+L,cDlInACHINE_COLDR,'Ic",teap_a->setup_for_in_charl; 

viprintflO,  ro»+l,  col+l,  MACHINE  COLOR,  "Ic",  IM.EI;" 

} 

break; 
case  1: 

iflteip_i->repeat  >  OK 

viprintflO,  ro»*l,  col-1,  BJLUE+F_6REEN*INT,  \ 
■lid',  teup  i->repeat>; 

> 

viprintflO,  roH+1,  col,  NACH1NE.C0LDR,  'Jr.",  \ 
teip_i->setup_fDr_in_char); 

viprintf (0,roH+l,col+l7r1ACHINE_COLDft,"Zc*,SETTIN6_UP>; 

break; 
case  2: 

if lte«p_»->repeat  )■  OK 

viprintflO,  r«r»l,  col-1,  B  BLUE+F  6REENHNT,  'lid",  te«p  i->repeatl; 

) 

viprintflO,  ron+1,  col,  ItACHINE.COLOR,  7c",  \ 
teip_i->setup_for_in_char}; 

viprintf (O,rom-l,col  M ,«BCHINE.COLOR, "Ic" .PROCESSING) ; 

break; 
} 
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tinclude  (stdio,li> 

iincjude  "user\opt.h' 

(include  "user\vi.h" 

•include  "user\std.h" 

/»  Function  to  initialize  the  statistics  structure  1/ 

int  init_statl) 

[ 

if (state  ==  FALSE) ( 

stats  =  (STATSH«y_ialloc(sizeof(STATS)l; 

stats->fin_ro»  -   5; 

stats->fin_col  =  27; 

stats->start_cash  =  cash; 

stats->cash_no»  =  cash; 

stats->sales.revenue  •  OL; 

stats->ra»_«at_exp  =  0; 

stats->iat_hand_exp  =  0; 

stats->other_op_exp  =  0; 

5tat$->n»t  cash  flow  =  0; 
} 

draw  stat  screen  0; 
1 

/*  Function  to  paint  the  statistics  »indo»  H 

int  dra«_5tat  screen!) 

{ 

int  i,  roH,  col; 

char  pchar; 

DEPT  Heap  d; 

HflCHINE  »tetp.l| 

vicls(31; 

»iprintfl3,  0,  33,  TITLE.CD10R,  ■!»",  "STATISTICS"); 
viprintf(3,  0,  5,  S.TEXT.COLOR,  '!§■,  "KEEK:         DAY:"); 
viprintf(3,  0,  63,  S_TElf_COL0«,  "Is",  "TIKE:"); 
for(ro»=2;  ro»  <  14;  ron+tJt 

for(col=5;  col  <  36;  col»+){ 

viputc(3,  roH,  col,  STATJIN.COLOR,   '  '); 

} 

for(ro«=14;  ran  <  n_ptypest3*14;  ron+*){ 
for(col=5;  col  <  36;  col++H 

viputc(3,  ro»,  col,  STAT_SLS_C0LOR,   '   '); 

) 

for(ro»=2;  ro»  (  n_ptypes*3*14;  ro»*+|{ 
for(col=36;  col  <  74;  col*+){ 

viputc(3,  ro»,  col,  STAT_ACT_C0L0R,   '   '); 

} 

viprintf(3,  2,12,  STflT_FIM_CDLOfl-F_«HITE+F _BRD»N,  ■!»■,  "FINANCIAL  REPORT" 
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viprintf (3,  4,13, 

STAT  FIN  COLOR 

'Is', 

■Starting  Cash'); 

viprintf(3,  5,18, 

STAT.FIN.COLOR 

"Is1, 

■Cash  Nan'); 

viprintf(3,  7,10, 

STAT.FIN.COLOR 

■Is', 

■Raw  Nat  Expenses1!; 

viprintf 13,  8,  5, 

STAT.FIN.COLOR 

■Is", 

"Mat  Handling  Expenses"); 

viprintf (3,  ?,  9, 

STAT.FIN.COLOR 

■Is", 

"Other  Op  Expenses'); 

viprintf (3,10,  5, 

STAT.FIN.COLOR 

■Is", 

"Hork. in. process  Value"); 

viprintf (3,11,  8, 

STAT.FIN.COLOR 

■Is", 

"Revenue  fro«  Sales'); 

viprintf (3,12,13, 

STAT.FIN.COLOR 

"Is", 

■Net  Cash  Flon'l; 

viprintf (3,14,14, 

STAT.SLS.COLOR 

•F  HHITE+F  BRQNN,  "Is",  "SALES  REPORT") 

viprintf (3,15,16, 

STAT.SLS.COLOR 

"Is", 

■Sold'!; 

viprintf  (3, 15,22, 

STAT  SLS  COLOR 

"Is", 

"On  Hand"); 

viprintf (3,15,31, 

STAT  SLS  COLOR 

■Is', 

"NIP"); 

viprintf (3,  2,47,  STAT.ACT.CDLOR-F.NHITE+F.BROKN,  "Is",  'ACTIVATION  REPORT") 
viprintf 13,  4,46,  STAT.ACT.COLOR,  "Is",  "Haunt  Prodi  Setupl  Idlel'l; 
for(i=0,  ro*=16;  i  <  n.ptypes;  i++,  row++){ 

•ap.part_type(i»l,  ipcharl; 

viprintf (3,  ron,  5,  STAT  SLS  COLOR,  "Product  Ic:\  pchar); 
) 
for!te»p_d=dept_h,  ro»=5;  te»p_d  !=  NULL;  te»p_d  =  te«p_d->nextl\ 

viprintf (3,  ro»,  37,  STAT.ACT.COLOR,  "Dept  Ud",  te«p.d->dept_no); 

for(teip_«=teip_d->iach;te«p_i!=NULL;te«p_«=teiip_i->next,roii+*)( 
viprintf (3, ro», 48, STAT.ACT.COLOR, "lid", te«p_i->tachjio); 


> 


) 


int  calc  cash  flow!) 


> 


cash  -=  OTHER.DP.EXPENSE; 

expense  t=  OTHERJP.EXPENSE; 

update.financell; 

stats->other_op_exp  *=  OTHER.DP.EXPENSE; 

stats->cash.no»  -=  OTHER .OP.EXPENSE; 

stats->net_cash_flo»  =  stats-kash.no*  -  stats->start_cash; 

iflpageno  !=  3)( 

update.stat.clockd; 

update.stat.prod.infol); 

update,  act.  reportO; 

pageno  ■  3; 

set  page (pageno); 
} 

update.stat.financel); 

viprintf (3,  22,  6,  KS6.C0LOR,  "This  is  end  of  neek  Id  statistics.  \ 
'P'  to  print/ 'Fl'  to  continue",  neek.nm-l); 


int  reset  financed 
C 

cash  =  stats->ca5h_no»; 
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expense  =  OL; 

5tats->5tart_cash  =  stats->cash_now; 
stats->cash_noi<  ■  cash; 
stats->sales_revenue  =  0L| 
stats->raw_aat_exp  =  0; 
stats->tat_hand_e«p  =  0| 
stats->other_op_exp  =  0; 
5tats->net_casMlo«  =  0; 
viblank(3,"22,  0,  22,  79); 
update.(inancel); 
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tindude  <stdio.lt> 
linclude  "user\opt.h" 
Hindude  "userkalendar.h" 

/»  Function  to  breakup  tine  into  necks,  days,  hours  and  linutes  •/ 

int  tiie.to.stringltne.in.iins,  peal) 

unsigned  long  tine_in_flins; 

CALENDAR  »p.cal; 

t 

p_cal->»eeks  =  lint)  (tiM.in.iins/HIIt.PER _HEEK); 
p.cal->days  =  (intH(tiie.in.iins/NIN.PER.DAY)-\ 

((unsigned  iong)(p_cal->»eeks)«uAYS_PERJtEEK)); 
p_cal->hrs  =  lint)((tiie.in.iins/liIM.PER.HR)-\ 

((unsigned  long) (p_cal-:'weeksl*HRS_PER_MEEK>-\ 
I  (unsigned  long)  (p_ca]->days)«HRS_PER_M¥n ; 
p.cal-)iins  =  (intlltiie.in.iins  Z  KIN  PER  HR)f 
} 

/»  to  be  changed  to  structure  version  */ 

int  string_to_tiie(ti»e_in_iins,  neeks,  days,  hrs,  sins) 

unsigned  long  *ti»e.in_sins; 

int  »eeks,  days,  hrs,  tins) 

{ 

*tiie_in_iins  =  (unsigned  long)«eeks*HIN_PER_ltEEK  ♦ 

(unsigned  long)days«HIII_PER_DAY  ♦ 

(unsigned  long)hrs»!UN_PER_HR  ♦ 

(unsigned  long)iins; 
/*  printf I'tne.in.iins  -   ZluNn",  «tiie  in  tinslj  */ 
> 


169 


finclude  (stdio.h) 

finclude  (dos.h) 

finclude  (graph. h> 

finclude  (signal, h> 

finclude  (stdlib.h) 

finclude  (process, h> 

finclude  "u5er\std.h" 

finclude  'user\doslib.fiB 

finclude  "userUeydefs.h" 

finclude  'userUnoslib.h' 

finclude  "user\opt.h" 

finclude  'user\vi.h" 

/*  —  Functions  defined  in  Utils.c  —  */ 

int  getkey(void); 

unsigned  int  position_cursor(int,  int,  int); 

void  set_page(int); 

void  hide_cursor(void)j 

int  «ap_part_type(int,  char*); 

int  sap _char (char); 

void  beepivoid); 

void  dane_inputlvoid); 

int  *ind_up(void); 

int  initiali:e(void); 

int  handlerivoid); 

void  restore_cursor(void); 

int  iproapt (int,  int,  int,  int,  int,  int,  int); 

void  write_siB_5tate(void); 

void  user_purchase(vaid); 

void  uaer. letup (void) j 

void  userjoadtvoid); 

void  user_iaove(void); 

int  query(void); 

Int  get_flodes(voidl; 


static  int  high,  law; 

/*  Get  the  user  input  */ 

int  getkeyO 
£ 

int  ch; 

ft  norsal  key  codes  */ 

If  ((ch  =  bdostKEYIM,  0,  0)  k   LOBYTE)  !=  J\0') 
return(ch); 

/*  convert  scan  codes  to  unique  internal  codes  */ 
return((bdos(KEYIN,  0,  0)  k   LOBYTE)  !  XF>; 
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int  initialized 
t 

union  RESS  inregs,  outregs; 

int  Viode,  Vpage; 

/*  obtain  current  video  tode  */ 
inregs.h.ah  =  SET_STftTE; 
int86(VIDE0_10,  fcinregs,  iroutregsl; 
Viode  •  outregs. h.al; 
Vpage  ■  outregs. h.bhj 

/«  obtain  current  bios  cursor  state  »/ 
inregs.h.ah  =  6ET.CUR; 
inregs.h.bh  •  Vpage; 
int8i(VIDE0_I0,  liinregs,  ioutregs); 
high  ■  outregs. h.chj 
low  =  outregs. h.cl; 

/*  check  to  lake  sure  EBA/CGA  adapter  is  available  «/ 
HIVtode  ==  7K 

t*  The  adapter  is  rionochrone  */ 

fputsCOPT:  This  prograi  requires  an  E6A/C6A  adapter. \n",  stderr); 

exit(0)| 
) 

/»  pipe  Ctlr-C  break  signals  to  handler!)  «/ 
if  (signal  CSIGIHT,  handler!  ==  UfltUIOI-M 

{putsCQPT:  couldn't  set  SIBINT.\n",  stderr); 

exit(O); 
} 

It  lake  sure  »e  are  in  lode  3,  else  change  */ 
iflVtode  !«  311 

_setvideoiode(JEUCBO); 
) 

I*  lake  sure  ae  are  in  page  0,  else  change  •/ 
iflVpage  !=  OK 

pageno  -  0; 

setpagelpagenol; 


/«  hide  the  bios  cursor,  set  bits  4,5  of  CH  */ 

inregs.h.ah  =  CUR.TYPE; 

inregs. h.ch  =  high  !  0x30; 

inregs. h.ci  «  Ian; 

int8i(VIDED_I0,  linregs,  (.outregs); 

vicls!0>; 
*ieli(l)| 

vicls(2); 
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vicU(3J; 
} 

It  Hide  the  cursor  by  setting  bits  4  and  5  of  CH  •/ 

void  hide_cursor(! 

t 

union  RE6S  inregs,  outregs; 

inregs.h.ah  =  CUR_TYPE; 
inregs. h.ch  =  high  !  0x30; 
inregs. h.d  «  Ion; 
int8i(VIDE0_I0,  linregs,  Joutregs); 
} 

I*  Position  the  cursor  at  the  specified  page,  Ton,  col  »/ 
unsigned  int  position_cursor(Vpage,  row,  col) 
int  Vpage,  ron,  col; 
C 

union  REBS  inregs,  outregs; 

inregs.h.ah  -   CUR_P0S; 
inregs. h.bh  =  (unsigned  intlVpage  4  0x07; 
inregs. h.dh  =  (unsigned  intlron  &  OxFF; 
inregs. h.dl  =  (unsigned  intlcol  %  OxFF; 
int86(VI0E0_ID,  tinregs,  Joutregs); 


returnloutregs.x.cflag); 


> 


/•  Set  visual  page  1/ 
void  set_page(vpage) 
int  vpage; 
C 

union  RE6S  inregs,  outregs; 

inregs.h.ah  =  SET_PASE; 

inregs. h.al  ■  vpage; 

intSiiVIDEO  10,  linregs,  taitregs); 
} 

/»  Nap  the  part  type  to  corresponding  character  »/ 

int  napparttypelptype,  ptypeinchar) 

int  ptype; 

char  »ptypejn_char; 

( 

tptype_in_char  =  ptype*64; 
} 

I*  Error  sensitive  ialloc  »/ 
char  »ny_ialloc(cnt) 
int  cnt; 
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char  *ptr; 

if  (iptr  =  (char»)ialloc(cnt>)  »■  NULL ) t 

f printf (ttderr ,  'Abort,  out  of  ieiory!\n"); 
exitl2>; 

} 

return(ptr); 


} 


I*  Sound  a  beep  at  the  ter»inal  */ 

void  beepl) 

( 

putci'W,  stderrl; 
} 

int  »ind_upll 
t 

union  REBS  -   '?gs,  outregs; 

di.  :se_calendar!!; 
vidsioii 
viclsll); 
vicls!2>i 

vid5(3li 

iflpageno  !=  0)  setpagelO) j 

_setvideoiode(_DEFIHIlT!tODE>; 

It  restore  cursor  1/ 
inregs.h.ah  ■  1; 
inregs.h.ch  =  high; 
inregs.h.cl  -  loi#j 
lntOtfVIDEO  10,  iinregs,  ioutregs); 
) 

It  Restore  the  BIOS  cursor  »/ 
void  restore_cursor() 

r 

union  RE6S  inregs,  outregs; 

inregs.h.ah  -  1; 
inregs.h.ch  ■  high; 
inregs.h.cl  =  lo»; 
intSMVIDEO  10,  fcinregs,  ioutregs); 
> 

It  Procedure  to  be  invoked  if  user  presses  Ctrl-C  »/ 

int  handler!) 

{ 

char  ch; 
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I*  Disallow  Ctrl-C  during  handler;  »/ 

viblanklpageno,  23,  0,  23,  79); 

position_cursor(pageno,  23,  0]; 

signal  ISI61KT,  S1BJ6N!; 

beep  0 ; 

if (!freezed!  stop_si»!!; 

viprintf (pageno,  23,  25,  HSB.C0L0R,  '7.5",  'Ter.inate  Simulation?  (y/nl'li 

ch  =  getchl); 

ifiich  ==  'y'l  I!  (ch  ==  'Y'ii{ 

t*ind_up(); 

exitiOi; 
> 

H 

nun  call  'signal'  again  so  the  nest  interrupt 
signal  sends  control  to  handler!),  not  to 
the  operating  systei. 
»/ 

signal (SIG1NT,  handler); 
viblanklpageno,  23,  0,  23,  7?); 
HCfreezed]  start _sUI!| 
position .cursor (pageno,  23,  0); 


It  Get  the  ne«  break_point  tron  the  user  »/ 
int  get_break_point(old) 
int  old; 
t 

char  ch; 

int  new; 

viblanklO,  23,  0,  23,  79); 

viprintflO,  23,  0,  HSB.CQiDR,  "Is',  'Break  point:'!; 

viprintflO,  23,  13,  B_RED+F_«HITE+INT,  "Wd",  old); 

viprintf  CO,  23,  25,  nSB.CQLDR,  'Ne«  Break  point:  (1  -  Zd)%  DIN  PER  MY)  - 

Hlushlstdin);  "  "   ' 

ne»  =  iprmpt (0,  23,  53,  4,  old,  1,  BIN  PER  BAY); 

iflnei  ==  oldK 

viblanklpageno,  23,  0,  23,  79); 

viprintflpageno,  23,  30,  BSB.C0L0R,  'U\  'Break  point  not  changed'!; 

position _cursor(0,  23,  0); 

hide_cursor(); 

returnlold): 


>eUeC 


viblanklO,  23,  0,  23,  79); 
position_cursor(0,  23,  0); 
hide_cursor(); 
return (ne»); 
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} 

/»  Pro«pt  for  an  integer  value  of  length  'length'  «/ 
int  iproiptlVpage,  row,  col,  length,  old,  sin,  aasi 
int  Vpage,  ro»,  col,  length,  old,  tin,  »ax; 
C 

char  bufUl; 

int  i,  j; 

int  new; 

int  »ore; 

if (length  <  1)  return(old); 
restore_cursorl); 
get_input: 

position_cursor(Vpage,  ro«,  col); 
for(i=0;  i  <  length+1;  i*t)< 
fprintf (stderr,  "_'li 
} 
for(i=0;  i  <  lenqth+1;  i«){ 

fprintf (stderr,  "\b'); 
} 

for(i=0,  iore=TRUE;  i  <  lengthH  U  «ore;  !( 
bufm  «  getchl); 
buf(i*l]  =  '\0'| 
MitchUufCilli 

case  '\r': 
case  '\n': 

ifli  ==  OH 

return (at d) ; 
lelsel 

for (j=0j  buftjl  ==''!!  buftjl  ==  '\t';  j*»l; 
for(ne»=0;  buf[j]  >=    0'  W  buKjl  <«  '9'j  j++){ 
ne»  =  10  *  nen  <■  bufCjl  -  '0'; 
} 
if (!ne»  <»  iai)  U  (nen  >=  »in)l( 

return lne»l; 
lelset 

beep ( I | 
return(old); 
) 


} 

break 

case 

'\b': 
bufli 
ifli 

1  =  'XO'i 

>  OK 

buft— 

i]  ■ 

■\0'| 

fputcl 

'\b' 

,  stderr); 

fputc [ 

_  i 

stderr); 

fputcl 

_  i 

stderr); 

fprintf (stderr,  "\b\b") 
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default: 


} 

break; 

buf[i+i]  =  '\0'| 

putc(bu«i++],  stderr); 
ifli  >  lengtbtlH 

•ore  ■  FALSE; 
) 

break; 
> 
> 

beepO; 

buftOI  =  '\0'; 
goto  get_input; 
} 

/«  Bet  the  user  input  for  writing  sinulation  state  to  a  file  »/ 

void  write  si»  stated 

t 

FILE  *fp; 

DEPT  *te«p_d; 

MftCHINE  «e»p_«; 

PfiRT.INFO  «eip_pi; 

RAW  »teip_ra»; 

PRODUCT  »te«p_prod; 

char  filena«e[151; 

int  i,  j,  k,  lore; 

int  ext  =  0; 

char  ch,  s  =  '  '; 

restore_cursor(); 

vibIanHpageno,23,0,23,79); 

viprintf(pageno,23,0,«S5.C0L0R,7.s',-»rite  si.ulation  state  to  filenaiel.outh 

vi prints (pageno, 23 , 42 , B_RED+F_HHITE+ INT ,  "Is",  "      ■); 

position_cursor(pageno,23,42!; 
for(i=0,  »ore=TRUE;  i  <  8  SS  »ore;  )( 
filena«e[i]  =  getchO; 


s«itch(filena»e[i]){ 

case  '\r'i 

case  '\n': 

ifli  = 

=  OH 

doneinputO; 

return; 

lelsef 

putclfilenaeetil,  stderr 

filena»efil  =  '\0'; 

} 

goto  proceed; 

break; 

case  '\b': 

filenaneti]  =  '\0'i 
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ifli  >  OK 

filenaiel-- i]  =  '\0'; 
fputc('\b',  stderr); 

> 

break; 
default: 

filenaietiM]  =  '\0'; 

putclfilenaielil,  stderr) ; 

i  ■  i  *  lj 

ifii  >  ax 

•ore  =  FftLSE; 
) 

break] 

} 
} 
proceed: 

for(i=0;  filenaie[i]!='\0'j  i»*)( 

lflfilenaseli]  ==  '.')  e«t  =  1; 
} 
iftlextll 

strcatlfilenaie/.out"); 
) 
ifllfp  =  fopenlfilenaie,  "rt")!  «=  NULLK 

viprintf(pageno,23,55,8_RE!)*F_HMTEtINT,  "fa",  "bad  file  nue')| 

hide_cursor(![ 

return; 
} 

fprintflfp,  "Is  IlOd  \n", "cash:", cash); 

fprintflfp,  "Is  I7d  \n", "expense:", expense); 

fprintflfp,  "5s  I7d  \n',"n_depts:*,n_depts); 

fprintflfp,  "Is  Ui  \n" , *n_ptypes: " , n_ptypes> ; 

fprintflfp,  "Is  I7d  \n","iax_ops:',iax_ops)| 

fprintflfp,  "Is  IlOd  \n",,pate:",pacel; 

fprintflfp,  "\n"!; 

fprintflfp,  "Is  \n", "routing:"); 
fofli'O)  i<n_ptypes;  i  ++) t 

for(j=0;  j<iax_opsM;  }**){ 

fprintflfp,  "IM'.rouUIiHjlli 

} 

fprintflfp,  'Nn'l; 
> 
fprintflfp,  "\B')| 

fprintflfp,  "Is  ISd  \n','routing_ro»:',routing_ro»l; 

fprintflfp,  "Is  ISd  \n","routing_col:",routing_coll; 

fprintflfp,  "Is  I5d  \n","raii_iat_roii:"|ra»_»at_ro«); 

fprintflfp,  "Is  ISd  \n","ra»_«at.col:",ra»_iat.coll; 

fprintflfp,  "Is  IBd  VnVprodj-om'.prod.rnii); 

fprintflfp,  "Is  IBd  \n","prod_col : ",prob_col ) ; 
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fprintflfp,  "7.5  I7d  \n","n_ra*_»at:',n_raw_aat); 

fprintflfp,  "Is  Z7d  \n* , "n_procluct5" ,n_products) ; 

fprintHfp,  "Is  I4d  \n*, 'priori ty_row: ■,priority_raw^; 

fprintflfp,  "Is  I4d  \n"!"priority_coli",priDrity_col); 

fprintflfp,  "\n"); 

for(te»p_d  •  dept_h;  teip_d  !=  NULL;  teap.d  -  teapj->ne«t)l 

fprintflfp,  "Is    I?d  \n" , "dept_no: " , tB«p_d->dept_no) ; 

fprintftfp,  "Is    I7d  \n", "machines:", teap_d->niachinest; 

fprintflfp,  "Is    I4d  \n","naach_in_use:',tenp_d->n«ach_in_use); 

fprintflfp,  "Is    I13d  \n","ro»:",te«p_d->ro«)i 

fprintflfp,  "Is    I13d  \n","col: ",te«p_d->col) ; 

fprintflfp,  "\n"l| 

fprintflfp,  "Is  \n","iachines  in  this  departaent:"); 

fprintflfp,  "Is  \n"i"ro«:col:«acli_no:rEpeat:setup_for: »state: usr_stopped:\ 

st_chg_tiae:i die: setup: busy"!; 
for(te«p_»  •  teap_d->«ach;  teip_«  !«  NULL;  te«p_i  =  teap_a->nest!l 
fprintflfp,  "I3dI3dI4dI4dI7dI8dI10d  I12]uI71uI41uI51u\n",\ 

tetp_«->rD»,te«p_«->col,te»p_i->«ach_no,teip_«->repeat,\ 
te«p_a->setup_f or, teap_a->Bst a te,teap_a->user  stopped, \ 
teap_i->state_change_tiae ,  teap_a->t i  ae_i  d]  e,  \ 
teap_a->tiae_5etup,teap_a->tise_busy); 


fprintflfp,  "\n"); 


) 


fprintflfp,  "\n">; 

fprintflfp,  "Is  \n',"part_inforiatinn:"); 

fprintflfp,  "Is  \n","dept_no:roii:col:repeat:ptype:ptype_in_char:pre:po5t:"l| 

forlteap.d  =  deptji;  te«p_d  !=  NULL;  tejpj  =  teip_d-hie«tK 

for(teip_pi=te»p_d->partJnfo;  teappi '=NULL;  teap_pi=teap  pi->ne*t!{ 
fprintflfp,  "I7di3dI3dI3dI6d  IcItltlcXcIcIc  MdIM\fl",\ 

teap_pi->dept_no,teap_pi->ro»,teip_pi->col,teipji->repeat,te«p_pi->ptype,'\ 

s,s,s,s,s,s,te«p_pi->ptype  in  char,te«p  pi->pre,tetp  pi->postl; 

) 

fprintflfp,  *\n"!; 
) 
fprintflfp,  "\n"l; 


fprintflfp,  "Is  \n","ra«_aateriaisi"); 
fprintflfp,  "Is  \n","ran_aat_no:cost:ro«:col'); 
forlte«p_ra«  =  ra»_»at;  teap_ra»  !=  NULL;  teap_ra»  =  te«p  ra»->nest)l 
fprintflfp,  "I5d  I7d  I5d  I3d  \n",  te«p"ra«-:>ra».Mt.ni!.\ 
teap  ra»->cost,teap  ra»->rDn,te«p  ra«->col) j 
} 
fprintflfp,  "\n"); 

fprintflfp,  "Is  \n", "products:"!; 

fprintflfp,  "Is  \n","prod_no:price:qnty_produced:liiit:roB:cDl"); 
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for(te«p_prod  -  product;  teapprod  !■  NULL;  teip_prod  =  te«p_prod->next!( 
fprintflfp,  "%5d  ZSd  hi  I9d  I4d  IW  \nVeip_prod->prDd_no,\ 
teip_prod->price,te«p_prDd->qnty_produced,\ 
teip  prod->liiit,tetp  prod->ro»,teiip  prod->col); 

1 

fprintflfp,  'VJj 

fprintflfp,  "\n  Is  \n","5etup_ti«es:-) ; 

for(i=0;  i<2j  i*+H 

fprintflfp,  'I«  Hi  \n*,"repeat=",i); 
for  (j=0j  j  <  njepts;  j-M-lf 

for(k=0j  k  <  n_ptypes;  k++){ 

fprintflfp,  "X5d",  itiMCiKJHUI) 
) 

fprintflfp,  "\n"); 
} 
fprintflfp,  "\n")| 


fprintflfp,  "\j")| 

fprintflfp,  "\n  Is  \n", "aachining_ti«E£: 'J; 

for (i=0;  i < 2;  !<■+){ 

fprintflfp,  "Is  I2i  \n","repeat=",i); 
for (j=0;  j  <  n.depts;  j*+)( 

forlk=0;  k  (  njitypes;  k++)t 

fprintflfp,  "I5d",  itiHtiHjllkDj 
} 

fprintflfp,  "\n')i 
) 

fprintflfp,  "Vlj 
} 

fprintflfp, 'Is\nIsl5\n,,,part_type:ra«_isterul-reUtionship:","ptype',*raiiBafi; 
for (i=0;  i  <  njitypes;  i«>! 

fprintflfp,  -I3d  %Sd  \n",i*l,raii  for  ptypetill; 
} 

fprintflfp,  "\n"); 

fprintflfp,  "Is  I91u  \n',"tiie_noii;  ",tiie_no»); 

fprintflfp,  "Is  I9d  \n","wek_no»:  ',«Mk_nim>; 

fprintflfp,  "Is  IlOd  \n","day_no»i  ",day.non>; 

fprintflfp,  "Is  Hid  \n","hr_m>ii:  ",hr_rto»>; 

fprintflfp,  "Is  IlOd  \n","«in_noii:  *,Bin_rtow) ; 

fprintflfp,  "Is  IlOd  \n", "deleted:  ", deleted); 

fprintflfp,  "Is  I9d  \n' , "user _spec i f i ed : " , user _speci f i ed ) j 

fprintflfp,  "Is  I7d  \n", "processing:  ".processing); 

fprintflfp,  "Is  IlOd  \nVauto_purchase:',auto_purcha5el; 

fprintflfp,  "Is  I7d  \n","auto_setup:  ",auto_setupl; 

fprintflfp,  "Is  IBd  \n","auto_iove:  ",auto_iove); 

fprintflfp,  "Is  I9d  \n","zoo»_ro»:  ",!Ooi_ro»); 
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} 


fprintflfp,  "Is  lit  \n",":oo»_col:  ",zoot_col); 

fprintf (fp,  "Is  7.8d  \n",'zoo»_dept;  ",zoo«_dept) ; 

fprintflfp,  "Is  I1M  \n","«in_in»:  ",iin_inv>; 

fprintflfp,  "Is  X4d  \n",'purchase_lot_size:',purchase_lot_size); 

fprintflfp,  "Is  I9d  \nVtransfer_batch:', transfer  _batch)[ 

fprintflfp,  'Is  I4d  \n', "«at_ftandlin9_cost: ",*at_handling_cost> j 

fprintflfp,  "Is  I7d  \n", "other _op_expense:",other_op_e*pense>; 

fprintflfp,  "\n"); 

fprintflfp,  "Is  \n","statistics_structure;"l; 

fprintflfp,  "Is    lild  \n',"ro»i  ",stats->f in_ro«) ; 

fprintflfp,  'Is    Hid  \n","coi:  ",stats->fin"colli 

fprintflfp,  "Is    I61d  \n","start_cash:  ",stats->start_cash); 

fprintflfp,  'Is    I81d  \n","cashjio»:  *,stats->cash_no»ii 

fprintflfp,  "Is    I91d  \n",'5ales_revenue:",stats->sales_revenue!; 

fprintflfp,  "Is    Hid  \nVra«_Mt_e«p:",stats->raii_«at_exp) ; 

fprintflfp,  "Is    IlOd  \n","»at_hand_exp:",stats->«at_hand_ejp>; 

fprintflfp,  "Is    IlOd  \n", "other  _op_exp:',stats->other_op_eicpi; 

fprintflfp,  "Is    I?d  \nVnet_cash_flo»:",5tats->net_cash~flon) | 

fprintflfp,  "Is  I71u  \n","event_ti»e:  ",event_ti«e>; 

fprintflfp,  "Is  I5d  \n","»eek:  \<mki\ 

fprintflfp,  "Is  ISd  \n",'day:  ",day) ; 

fprintflfp,  "Is  I7d  \n","hr:  -,hr); 

fprintflfp,  "Is  I6d  \n","»in:  ",ain); 

fprintflfp,  "Is  I7d  \n",*event_varl:  " , event_var 1 ) ; 

fprintflfp,  "Is  17d  \n","event_var2:  ", event  var2)j 

fprintflfp,  "Is  I7d  \n","event_var3:  ",event[var3>; 

fprintflfp,  "Is  I7d  \n",'event_var*:  ",event_var4l; 

fprintflfp,  "Is  Is  \n","event_type:",event_typel; 

fprintflfp,  "Is  Ic  \n","«odifier:    ",aodifier>; 
fcloselfp); 
ifl»rite_cal_listlfilenaie)  •=  l)t 

viprintflpageno,23,55,8_RED*F_HHITEtINT,  "Is",  "finished  witing"); 

hidecursorl); 

return; 


)else{ 


hidecursorl); 
return; 


It  Set  the  user  input  for  scheduling  purchase  event  »/ 

void  user  purchased 

t 

char  ch,  iax_ptype,  ptype; 

char  pchar; 

int  ok,  sore; 

int  i,j,«,d,h,i,' 

unsigned  long  int  tiles; 

int  lot_size,  part_no; 
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»ap_part_typef n_ptypes,  ipchar) ; 

sa*_ptype  ■  toupper (pchar) ; 

restore_cursor(); 

i/iblank (pagena,  23,  0,  23,  79); 

viprintf (paqeno,  23,  0,  BS6.C0LDR,  "Is",  'Purchase  rm  aaterial  for:  "!; 

position  cursor (pageno,  23,  27); 

ok  ■  FALSI; 

«hi!e(!ok)( 

ch  -  getchl); 
if (eh  <  '  '){ 

done.inputl); 
return; 
> 
iflch  <  •«•  II  ch  >  ':'){ 

ok  «  FALSE; 
lelsel 

ok  =  TRUE; 
> 
iflokH 

ptype  =  toupper (ch); 
if  Iptype  (=  »a«_ptype)( 

fputc (ptype,  stderr); 
lelsef. 

ok  =  FALSE; 
> 
) 
> 
get_lot_size: 

lot.size  ■  PURCH»SE_LDT_SIZE; 

viprintf Ipageno,  23,  3D,  NSS.CDLOR,  'lis",  "lot  size;   ')j 

viprintflpageno,  23,  40,  B_ReWjIHITE*INT,  " (Z3d>" ,  lot  size); 

viprintf (pageno,  23,  55,  B_BLACK*F_SREEN+IHT,  "Is*,  ■Hit'flrturn  for  default' 

lot.size  ■  iproapt (pageno,  23,  47,  3,  lot .size,  1,  999); 

restorecursorl); 

vi»lank(pageno,23,0,23,791; 

viprintflpageno, 23, 0,B.RED*F.HHITE+IHT,  "Is",  'Bive  schedule  ti»:\ 

(Hit  return  for  autoiatic)'); 
viprintflpageno, 23, 471B_BLACK+F_6REENtINT,  'Is',  "week:"); 
position.cursor (pageno, 23, 53); 
ok  ■  FALSE; 
Hhiledoklf 

ch  =  getchl); 
iflch  -  '\r')( 

doneinput I); 
goto  front; 
) 
iflch  <  '0'  II  ch  >  '4'){ 

ok  =  FALSE; 
lelsef 

ok  =  TRUE; 
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fputc(ch,stderr); 
»  =  ch  -  'O'j 
) 
) 

Yiprintflpageno,23,55,B_BLACK*FJREEN*lNT,  "Is",  "day:1!; 
position_cursor(pageno,23,60); 
ok  =  FALSE; 
«hile(!ok)( 

ch  =  getchO; 
if  (ch  -  'Nr'H 

donejnputl); 
goto  front; 
> 
iflch  <  '0'   !!  ch  >  '6'){ 

ok  =  FALSE; 
>else( 

ok  =  TRUE; 
fputc(ch,stderrl; 
d  =  ch  -  '0'; 
) 
} 

H>| 
•=0; 

viprintf Ipageno, 23,42, B_BLACW_6REEN*INT,  "Is",   "hour:"); 
h  =  iproipt(pageno,23,67,2,h,0,23l; 
viprintf lpaqertD,23,701B_BLflCK+F_EREEM+INT,  "Is",  "«in:">; 
■  ■  iprosptlpageno, 23,74, 2, 1,0,59); 

string_to_ti«el!itiie«,ii,d,hl»); 
ifltiies  <-  ti»e_no«)( 

done_input(l; 

return; 
) 

goto  fomard; 
front; 

tiiei  ■  ti«e_no»  ♦  1L; 
forward: 

ifllot.size  >  01! 

part_no  -  iap_char(ptype); 

userspecified  «  TRUE; 

schedulelPURCHASE,  tiies,ra«.for_ptypetpart.no-l),\ 
partno,  lot_si:e,  01; 

userspecified  =  FALSE; 

donejnputl); 

return; 
)else( 

goto  get_lot_si:e; 


/»  6et  the  user  input  for  scheduling  setup  event  */ 
182 


void  user  setupil 
[ 

DEFT  »te»p  d; 

machine  itnr.i; 

PARTJNFO  »teip_pi; 

int  ok,  sane; 

int  deptjio,  iach_no,  repeat,  count; 

char  parttype; 

char  ch; 

restore_cursor!l; 
get_»acht 

viblanklpageno,  23,  0,  23,  79); 

(fiprintf tpageno,  23,  0,  NS6.C0L0R,  -2s",  "Change  setup  for  -  dept:1); 

viprintflpageno,  23,  30,  NSG.COLOR,  "Js",  ,«ach.'"l; 

positioncursorlpageno,  23,  25); 

ok  =  FALSE; 

nhilellokH 

ch  =  getchl); 
iflch  (  '   '){ 

donejnputl); 
return; 
} 
iflch  <  T  II  ch  >  '?•)( 

ok  =  FALSE; 
lelse! 

ok  =  TRUE; 
> 
iflokK 

dept_no  =  ch  -  '0'; 
ifideptjo  >  n_depts)t 

ok  =  FALSE; 
>else{ 

ok  »  TRUE; 
fputclch,  stderr); 
} 
} 
> 
for(te»p_d  =  dept.h;  teip.d  I-  NULL  M,  te»p_d->dept  no  !=  dept  m>;\ 

te«p_d  =  te«p_d->next); 
iflteipj  ==  NULL!  print_errord(); 
position_cursor(pageno,  23,  34); 
ok  ■  FALSE; 
»hile!!ok){ 

ch  =  getchl); 
iflch  <  '  '){ 

donejnputd; 
return; 
> 

iflch  (  T  II  ch  >  TH 
ok  •  FALSE; 
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Jelset 
j 

Dk  =  TRUE; 

if (Dk){ 

aach.no  -  ch 

-   »'i 

if l*ach_no  > 

teap.d 

->niac!unes){ 

ok  = 

FALSE; 

>else( 

ok  = 

TRUE| 

f  put 
} 

(ch,  stderr); 

} 
} 

forlteip.i  "  te«p.d->iach;  teip.t  !=  NULL  y.i  tMf.t-)nck.M  !«  r*ctl_»0|\ 
tetp_«  =  tesp _»->nB«t); 

iflteip.i  ==  NULL)  print_error«(); 
if (teip_i->«state  ==  0){" 

processing  =  FALSE; 
) 
iflteip_i->istate  «■  l!t 

viprintf (pageno,  23,  40,  B_BLACK+F_BROHN+ [NT ,  "Is",\ 

"Haste  previous  setup?  <y/n>  "I; 
position.cursoripageno,  23,  68); 
ch  =  getchl); 
if C (ch  ==  'Y'l  I!  (ch  =■  >')){ 

viblanklpageno,  23,  40,  23,  79); 
goto  get  ptype; 
lilset 

goto  get  »ach; 
} 
> 
iflteip_i->tstate  ==  2)( 

processing  =  TRUE; 
> 
get .ptype: 

viprintf (pageno,  23,  40,  NS6.COL0R,  "Is1,  'for  part  type:"); 
position .cursor (pageno,  23,  55); 
ok  =  FALSE; 
•hiledokK 

ch  =  getchl); 
iflch  <  '  ')( 

done.inputd; 
return; 
> 
iflch  <  'A'  II  ch  >  '!'){ 

ok  >  FALSE; 
lelset 

ok  =  TRUE; 
) 
iflokll 

part.type  =  toupper(ch); 
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sate  >  TRUE; 

forltMfji  =  teap_d->part_info;  tetp.pi  !■  NULL  U  sate;  ){ 
Hitetp.pi->ptype_in_char  ==  part  typeH 
saw  =  FALSeJ 

>else{ 

tetp  pi  =  tetp  pi->next; 
) 
} 

i<!te«p_pi  ==  NULL){ 
ok  '  FALSE; 
Jelsef. 

ok  =  TRUE; 

fputclpart  type,  stderrl; 
) 
> 
} 

viprintflpageno,  23,  43,  NSS.COLOR,  "Is",  "repeat:"!; 
position  cursorlpageno,  23,  71!; 
ok  =  FALSE; 
nhilellokK 

ch  ■  getchl); 
if <ch  <  '  ■)( 

doneinput () ; 
return; 
} 
iflch  <  '0'  I!  ch  >  '9'K 

ok  =  FALSE; 
>elie( 

ok  =  TRUE; 
> 
IflokH 

repeat  =  ch  -  '0'; 
for(count=0;\ 

tetp.pi   !=  NULL  44  count  <  repeat;\ 

teipji  =  tetp  pi->next,  count**); 
m tetp.pi  ==  Will)  I 

viprintflpageno,  22,  40,  NS6.CDLDR,  "Is",  "Illegal  part  type:"!; 
vipnntflpageno,  22,  59,  B_BLACK»F_6REEN*INT,  "lid",  repeat); 
vipnntflpageno,  22,  40,  B_BLACK*F_BROKN*INT,  "Xc",  part  type); 
beep '. ) ; 

viblanklpageno,  23,  55,  23,  79); 
ok  =  FALSE; 
goto  get  ptype; 
) 

ifl(5trcip(teip_pi->ptype_in_char,  part.type)  m  0)  44  \ 
(te»p_pi->repeat  ==  repeat?)! 
change (SETUP, iach.no, dept.no, repeat, tap  charlpart  type)); 
fputclch,  stderr); 
lelsel 

viprintflpageno,  22,  40,  HSS.CDLOR,  "Us",  "Illegal  part  type:"!; 
vipnntflpageno,  22,  59,  S.BLACK*F_6REEN*INT,  "lid",  repeat); 
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viprintf (pageno,  22,  60,  B_BLACK+F_BROH»+IHT ,  'It',  part.typei; 
beep ' I ; 

viblank (pageno,  23,  55,  23,  79? ; 
ok  =  FALSE; 
goto  get  ptype; 
} 
) 
} 

done_input(); 
if(te«p_«->setup_for  ==  UN.UTILIZEDK 

if  (te«p_d->n»achjn_use  <  te«p_d->n<achinesl{ 

te»p  d->n«ach  in  use+f; 
} 
) 


> 


It  Set  the  user  input  for  scheduling  load  event  */ 

void  user  load!) 

< 

DEPT  *teip  d; 

MACHINE  *te8p_«; 

PART.INFO  »teip_pi; 

char  ch; 

int  ok,  found; 

int  deptjio,  lachjto; 

int  part_type,  repeat; 

restore_cursorl); 
viblanklpageno,  23,  0,  23,  79); 
viprintf (pageno,  23,  0,  «SB_COL0R,  "2s",  "Load  -  Dept: 
get_load_iach: 
ok  =  FALSE; 

position_cursor (pageno,  23,  13); 
»hile(!ok)( 

ch  =  getchi); 
iflch  <  '   ')( 

donejnputf); 
return; 
} 
iflch  <  T  I!  ch  >  Tl( 

ok  =  FALSE; 
lelsef. 

ok  =  TRUE; 
} 
if(ok){ 

deptjio  =  ch  -  '0'; 
ifldeptjio  >  n_depts)( 

ok  =  FALSE; 
)else! 

ok  =  TRUE; 
fputclch,  stderr!; 
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> 

> 
J 

forlteip.d  ■  dept.h;  teepj  !=  NULL  to  teep_d->dept_no  !=  dept.no;  \ 

te«p_d  =  tesp_d->next); 
ifltwp.d  ==  NULL)  print_errord() j 
posi ti on_cursor (pageno ,  23,  24)] 
ok  ■  FALSE; 
»hile(!okl( 

ch  =  getchl); 
iflcll  <  '  '){ 

doneinputl); 
return; 
J 

i-f Cch  <  T  ::  ch  >  '?■)( 

ok  ■  FALSEj 
>else{ 

ok  =  TRUE; 
} 
IflokK 

•ach_no  ■  ch  -  '0'; 

if(aach_no  >  te«pjf->nnachines)f 

ok  «  FALSE; 
lelset 

ok  =  TRUE; 
fputclch,  stderr); 
> 
} 
} 
for  deep..  =  tenp_d-;iach;  te«p_.  !«  NULL  to  teip_.->each_no  !«  .ach  no;  \ 

te«p_t  =  teip  i->n»jt)| 
KltHp.l  ==  NULL)  print_erroriiOj 
viblanklpageno,  22,  0,  22,  7?l; 
iflteip_e->setup_for  ==  UNUTILIZED)  ( 
done_input(l; 

viprintflpageno,  22,  0,  NS6.COL0R,  "Is",  "Setup  .achine  before  loading'); 

return; 
} 
i((tefp_i->istate  !=  0|{ 

viprintflpageno,  22,  0,  NSB.COLDR,  'Is',  'Machine  is  not  free"); 

ok  ■  FALSE; 

goto  get  load  lach; 
} 

partjype  =  te«p_«->setup_(or; 
repeat  =  te»p_«->repeat ; 
fortteipji  =  teipjj->part_info;\ 

teap.pi   !«  NULL  to  • ((teip.pi-)ptype  ==  part  type)  to\ 
(te»p_pi->repeat  ==  repeat)) j\ 

te«p_pi  =  teup  pi->next); 
iflteip.pi  ==  NULL)  print.errorpl); 
if(teap_pi->pre  >  0){ 
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changelLOAD,  «ach_no,  dept_no,  repeat,  part  type!; 
} 

done_input(); 
if lte«p_pi->pre  <=  OK 

viprintflpageno,  23,  25,  B  BLACK+f  BROHN+INT,  "No  parts  in  the  pre  area"); 
} 

return; 
} 


/»  Set  the  user  input  (or  scheduling  love  event  »/ 

void  user_aDve(l 

[ 

DEFT  He§p.d; 

PARTJNFO  »tetp.pi,  •te«p_pi_duHy; 

PRODUCT  »teip_prod; 

int  part_nD,  dept_nD,  repeat,  si;e,  count; 

int  j,  ok,  dont,  found,  last; 

int  »,  d,  h,  •; 

unsigned  long  int  tiiex; 

char  ch,  sax_ptype,  parttype; 

char  pchar; 

«ap_part_type(n_ptypes,  Ipchar); 

«ax_ptype  =  toupper (pchar); 

dont  =  TRUE; 

last  *  FALSE; 

restore_cursor(); 

viblanklpageno,23,0,23,79)! 

viprinttlpageno^S^^^BLACK+F^SREEN+iNT^AS^'Move-  Part_type:   froi  dept: 

position  cursor (pageno,  23,  17); 

ok  =  FALSE; 

■hile(!ok){ 

ch  =  getchl); 
if  (ch  <  ■  'X 

donejnputO; 
return; 
> 
if (ch  <  ■»'  II  ch  >  '2'l( 

Dk  ■  FALSE; 
)else( 

ok  =  TRUE; 
} 
iflokH 

parttype  =  toupper (ch); 
if (parttype  <■  tax_ptype)( 

fputc (parttype,  stderr); 
>Bl!»( 

ok  =  FALSE; 
> 
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) 

positionjrursorlpageno,  23,  30!; 

ok  =  FALSE; 

nhiledokM 

ch  «  gptchl); 
iflcli  <  '  ')( 

doneinputl); 
return; 
> 
iflch  <  T  !|  ch  >  T){ 

ok  =  FALSE; 
>eiKt 

ok  =  TRUE; 
> 
ifloklt 

dept_nD  =  ch  -  '0'; 
ifldept_no  >  n_depts)( 

ok  =  FALSE; 
)else{ 

partjio  =  «ap_char(parttypel; 
found  =  FALSE; 

fQr(j=0;(j<=lia«_opsH)i  U  [dont==TRUEI;j«0  f 
if  (route[part_no-n[j]==dept_no){ 

if  Iroute(part_no-1HJM1==OH 
found  =  TRUE; 
last  =  TRUE; 
ok  =  TRUE; 
found  =  TRUE; 
fputc(ch,stderrl; 
dont  =  FALSE; 


}else( 


ok  =  TRUE; 
found  =  TRUE; 
fputc(ch,stderr); 
dont  =  FALSE; 


) 

> 
J 
if (found  ==  FALSE)! 

ok  =  FALSE; 
} 


for(te.p.d  ■  dept.h;  tetp.d  !•  NULL  U  tetp_d->dept  no  !=  dept  no;  \ 

te«p_d  =  te»p_d->next); 
iflteipj  ==  NULL)  print_errord;" 
for(tetp_pi  =  teip_d->part_info;\ 
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teip^pi   !=  NULL  &i  (strcop (tenp_pi ->ptype_in_char,parttype)   !=0);\ 
teip_pi  »  tetp_pi->next); 
for (te»p_prod  =  product;  te«p_prod->prod_no  !«  part_no;\ 
te«p_prod  =  teip_prod->next); 

if  (last  ==  TRUEK 

if (te«p_prod->litit-tetp_prod->qnty_produced  ■=  OK 

viprintfipageno, 23, 35, B_REJ*FJiHlTEt!NT, "Is", 'Exceeds  sales  liiiflj 
hide_cursor(l| 
return; 
) 
) 

viprintflpageno,  23,  32,  MSB_CDLQR,  'Is-,  "repeat:'); 
position_cursor(pageno,  23,  40); 
ok  =  FALSE; 
»hile(!akl( 

ch  ■  getchO; 
iflch  <  '  ')( 

done_input(); 
return; 
> 
iflch  <  '0'  II  ch  >  Tl< 

ok  =  FALSE; 
Idset 

ok  =  TRUE; 
} 
iflokll 

repeat  =  ch  -  '0'; 
iflrepeat  --  0)i 

viblank(pageno,22,0,22,79); 
} 

teap_pi_dui«y  =  te«p_pi; 
for (count=0;\ 

teeppi   !«  NULL  ii.  count  <  repeat; \ 

tetp_pi  =  teip_pi->next,  count++); 
iflteip_pi  --  NULDt 

viprintfipageno,  22,  40,  HSSJDLOR,  "Is",  "No  repeat  for  this  part.type"!; 
beepl); 
ok  ■  FALSE; 
> 

if llstrcip(teip_pi->ptype_in_char,  parttype)  ==  01  U  \ 
(te«p_pi->repeat  --  repeat))! 
fputclch,  stderr); 
viblanklpageno, 22, 0,22,79); 
>else( 

viprintflpageno,  22,  40,  «SG_C0L0R,  'Js',  "No  repeat  for  this  part_type"!; 
beep  I ) ; 
ok  ■  FALSE; 

teip  pi  =  teip  pi  dualy; 
} 
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) 

viprintf (pageno,23,42,MSG_CaL0R, "Ss" , "Buanti ty: ') ; 
getsize: 

position_cursor(pageno,23,52); 

size  ■  0; 

size  ■  iproapt(pageno,23,52,2,size,0,9?); 

viblank(pageno,22,0,22,7?); 

iflsize  --  OK 

donejnputd; 
returnj 
} 

if lteip_pi->post  --  0)( 
done_input(); 
return; 
} 

if lteip_pi->post  >-  size)! 
if  Hast  ==  TRUE)  I 

ifl  si:e  >*  teipjrod-Miiit  -  te«p_prod->qntyjiroduced){ 

size  ■  te«p_prod-Hiiit  -  teip  prod->qnty  produced; 
} 
} 

goto  getti«e; 
>else( 

viprintf (pageno,  22,  40,  B_RED+F_WHITE+INT,  "Is",  "Hot  enough  parts  in  post  area") ; 
viblank(pageno,23,52,23,7?>; 
goto  getsize; 
) 
gettine: 

restore_cursor(); 

viblanklpageno, 23, 0,23,7?); 

viprintflpageno, 23, 0,B_RED*F_HHITE+INT,  'Is1,  \ 

■6ive  schedule  tite:   (Hit  return  for  autoiatk)"); 
viprintf(pagenD,23,47,BJLACK*F_6REEN+INT,  "Zs",  Neek:1); 
position_cursor(pageno,23,53); 
ok  =  FALSE; 
nhile(!ok)< 

ch  =  getchl); 
iflch  "  '\r')< 

done_input(l; 
goto  front; 
} 
iflch  <  '0'  II  ch  >  '4'H 

ok  «  FALSE; 
lei «el 

ok  ■  TRUE; 
fputc(ch,stderr); 
»  ■  ch  -  '0'; 
) 
} 
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viprintflpageno,23,55,B_8LACK*F_6REEN*INT,  W,  ■day:-)! 
position_cursor (pageno,23,60) ; 
ok  =  FALSE) 
»hile(!ok)< 

ch  =  getchl); 
if  (ch  ==  "ir'K 

donejnputd; 
goto  front! 
) 
iflch  (  '0'  II  ch  >  '4'lf 

ok  =  FALSE; 
>else{ 

ok  ■  TRUE; 
fputc(ch,stderrl; 
i  =  ch  -  'IT; 
> 
} 

h=0j 
.=0; 

viprintf lpaqenD,23,A2,B_BLftCK+F_SREEN+INT,  'Js',  ■hour:"); 
h  -   ipro«pt(pageno,23,67,2,h,(>,23); 
viprintf (pageno, 23,70,B_BLACK+F_BHEEN*1NT,  "Is",  *af D| ") | 
•  «  iproupt (pagenot23,74,2,a,0,59); 

string_to_tiie(!itiie«,ii,d,n,i); 

if (tuex  <=  tiae_non){ 
donejnputf}; 
return; 

} 

goto  forward; 
front: 

tuex  =  tiie_now  +  1L; 
forward: 

user_specified  =  TRUE; 

schedul e (MOVE, t i*ex, repeat, par t_no,dept_no, size); 

tetp_pi->po5t  =  tenp_pi->post  -  size; 

user_specified  "  FALSE; 

doneJnputO; 

return; 


void  done  inputivoid) 
{ 

position_cursor(pageno,  23,  0); 

l)ide_cursor(); 

viblanklpageno,  22,  0,  22,  7?); 

viblanklpageno,  23,  0,  23,  79); 
} 

/*  Bap  the  part  type  to  corresponding  integer  */ 
int  iap_char(ch! 
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char  ch; 
{ 

return  (ch-M); 


int  query (I 
C 

char  ch; 

set_page(l); 

if (state  ==  FALSE! { 

autojiurchase  ■  TRUE; 
) 
viprint-f  (1,  23,  13,  NSS.COLDR,  "Zs1,  \ 

"Do  you  «ant  automatic  purchase  of  ra»  «ateriais?  <y/n>'l; 
ch  =  getchl); 
if  ((ch  ==  V)  !!  (ch  "  'N')K 

auto  purchase  =  FALSE; 
) 

viblankll,  23,  0,  23,  79); 
if  (state  ==  FALSE)  < 

auto_setup  =  TRUE; 

viprintfll,  23,  25,  BSB.COLOR,  "it',  \ 

"Do  you  nant  automatic  setups?  <y/n>"); 
ch  =  getchl); 
ifllcb  ==  VI  i!  (ch  ==  ■«'))! 

auto_setup  =  FALSE; 
) 

viblankll,  23,  0,  23,  79); 
if  (state  ==  FALSEK 

auto  iove  "  TRUE; 
) 
viprintfll,  23,  15,  HS6.C0LQR,  "Is-,  \ 

'Do  you  xant  autoiatic  uteri il  transfers?  <y/n>"); 
ch  =  getchl); 
if ( (ch  ==  'n'l  !!  Ich  ==  '»')){ 

auto  iove  =  FALSE; 
} 

viblankll,  23,  0,  23,  79); 
viprintfll,  23,  13,  NSS.C0LOR,  'Is",  \ 

"Do  you  »ant  to  change  any  of  the  above  variables?  <y/n>"); 
ch  =  getchll; 
if  ((ch  ==  >')  !!  Ich  ==  Till 

change  varsl); 
) 

viblankll,  23,  0,  23,  79); 
set_page(0); 

viblanklO,  23,  0,  23,  79); 
viprintflO,  23,  18,  NSS.CDLQR,  'Is",  \ 

"You  can  change  the  lodes  by  pressing  ALT-h"); 
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int  get_«odesl) 
t 

char  ck| 

viblanMO,  23,  0,  23,  79); 
viprintflO,  23,  15,  NSB.COLOR,  'Is",  \ 

"Press  space  bar  to  toggle  aooe  or  return  to  accept'); 
vichgatUO,  14,  3,  4,  BLNK); 
get_p_»ode; 

en  -  getcnl); 

ifllch  ==•')!)  (ch  ==  K.RETURN1K 
vichgatUO,  14,  3,  4,  BLNK); 
if (ch  ==  '   ')( 

if  lauto_purchase)( 

autojurchase  =  FALSE; 
>el6»{ 

autojurchase  -  TRUE; 
} 

print_iodes(); 

vichgattIO,  14,  3,  4,  BLNK); 
goto  get  j_iode; 
>elseC 

vichgattIO,  18,  3,  4,  BLNK); 
gotD  get_s_iode; 
} 
Mset 

goto  get  piode; 
} 
get_s_*ode: 

ch  =  getchl); 

ifllch  ==  '  'I  !!  (ch  =  K.RETURNIK 
vichgattIO,  19,  3,  4,  BLNK); 
if (ch  ==  '  '){ 

if fauto_setup)( 

autosetup  »  FALSE; 
)else( 

auto  setup  =  TRUE; 
) 

print_iodes(); 

vichgattIO,  18,  3,  4,  BLNK); 
goto  get_s_iode; 


>elset 


vichgattIO,  20,  3,  4,  BLNK); 
goto  getpiode; 


)else( 

} 


} 

goto  getsjode; 
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get_i_»odei 

cti  =  getcM); 

ifUctl  ==  '  ')  I!  Ich  ==  K.RETUHHJ > t 
vichjattIO,  20,  3,  4,  BLNK); 
if  left  ==  '  ')( 

if  iauto_tove>( 

auto  «ove  ■  FALSE; 
}elseC 

autojioye  =  TRUE; 
> 

print_«odes(); 

vichgattIO,  20,  3,  6,  BLNK); 
goto  get  A  lode; 
>else{ 

viblankfO,  23,  0,  23,  79); 
return; 
} 
}(lM< 

goto  get  a  lode; 
) 
> 
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♦include  <stdio.li> 
linclude  'user\keydefs.h' 
linclude  "user\opt.li" 
linclude  'user\std.h' 
linclude  "user\vi.tT 

int  lootfintl; 

int  get_dept_notint); 

int  set_:ooi_scrivoid); 

int  set_act_«indon(int); 

int  update_ioot_act(int); 

int  stop_:ooi_deptlvoid); 

int  start_:oo«_dept!void); 

/*  Function  to  zoon  the  specified  departient  »/ 
int  :oo«(dept_no) 
int  dept  no; 
t 

DEPT  »te«pjf; 

MACHINE  »te«p_«; 

PART.INFD  Heip.pi; 

int  rot*,  col ; 

row  =  zooi_row; 

col  =  zooi_col; 

viblankd,"2,  23,  14,  55!; 

viprintfd,  ro»-2,  col-5,  TITLE_CDLOR,  "Is  lid" ,  "Departient",  dept_no); 

for(te«p_d  •  dept_h;  teap_d->dept_no  !=  dept_no;  te«p_d  =  te»p_d->next); 

for(te»p_«  -  te«p_d->«ach;  teip_i  '-  NULL;  te»p_»  "  te«p_«->ne«tl{ 

viprintfd,  ro«,  col-1,  B_f)ED+F_WHITE+INT,  ■  Hi   ",  te*p_«->»ach  no); 
viprintfd,  ro»*l,  col-3,  NACMNE.COLQR,  "Is",  "     ")| 
viprintfd,  row*!,  col-3,  8.BLJE*F_BR0HN-HNT,  "Jc",  '\xB3'l; 
viprintfd,  ron+1,  col*3,  B_BLUE+F_BROMN+ 1 HT ,  "2c",  \xB3- J; 
snitch  (te»p_«->istate)( 
case  0; 

if(teip.»->5etup.for  !«  UN_UTILIIED) { 
if (teip.i-)repeat  >  0)1 

viprintfd,  ro»+l,  col-2,  B_BLUE+F_6REEH+INT,\ 
"Hid",  te»p  i->repeat); 
) 
viprintfd, ro«*l, col-1, H«CHINE_COLDR,"Ic",teip_ii->setup  for  in  char) 
viprintfd,  ron+1,  col+1,  MACHINE  COLOR,  ■Xc'.IDLE); 
> 

break; 
case  1: 

if(te«p_t->repeat  >  0)( 

viprintfd, ro»*l, col-2, B  BLUE+F  6REENtINT,"Jld",teip  «->repeat); 
) 
viprintfd, ro«H, col-1, HACHINE_COLDR,'lc",te«p.«->setup  for  in  char); 
viprintfd,  ro»+l,  eol+1,  RAChInE_COLDR*BLNK,  ;Ic",  SETTIN6~UPf; 
break; 
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case  2: 

if!te«p_n->repeat  >  OK 

viprintfll, ro«+l,col-2,B  BLUE+F  BREENMNT/Ud'.tsup  «->repeat> 
) 
viprintf(l,ro»H,co!-l,flACHIIIE_COLDR,"7.c'|te»pji-:>5etup_for_in_char); 
viprintfll,  ro»+l,  col+1,  NflEHINE_CQLOR+BLMK,  'Ic1,  PROCESSING?; 
break; 
) 

mil  =  ro«*2; 
> 
ron  ■  zooi_ro«tl; 

col   =  20DICD1-13; 

for(te«p_pi  -  tesp_d->part_infoj  teip_pi   !»  NULL;  tetpji  ■  teipj>i->nextl< 
if lteip.pi->repeat  >  OK 

viprintfll,  ro»,  col-3,  B_BLACK*F_6REEN*INT,  "Id",  te«p_pi->repeat); 
viprintfll,  toh,  col+28,  B  BUCK+F  6REENHNT,  'U\  teap  pi->repeatl; 
> 

viprintHl,ro»,col-2,B.BUCK*F_BR0»N»INT,1k,,teip_pi->ptype.in_char!; 
viprintfll,ro«,colt29,B.BLftCK*F_BR0NN+lNT,,Ic-,teip.pi->ptype_iri_cliar); 
if(tetp_pi->pre  >  OK 

viprintfll,  ro»,  col-l,  PRE  COLOR,  "  I3d  ",  te«p  pi->pre); 
lelsef. 

viprintfll,  ran,  col-1,  PRE  COLOR,  "7.5",  "         "I; 
) 
if lteip_pi->post  >  OK 

viprintfll,  ron,  col+23,  POST  COLOR,  "  7.3d  ",  teip  pi->post); 

viprintfll,  ro»,  col+23,  POST  COLOR,  7.5',  "         "i; 

} 

viprintfll,  rem,  colM,  STME.COLOR,  '  13d  *,\ 

stiae[te«pjii->repeat][te«p_pi->dept_no-lHteipji->ptype-l]); 

viprintfll,  ro»,  col+lB,  NTIIIE.COLOR,  '  7.3d  :,\ 

«tiiette«p_pi->repeatHte«p_pi->dept_no-i!!teip_pi->ptype-l])i 

roH++; 
I 

5et_act_»indo»l:ooi_dept); 
update_zooi_acttzoo»_depti; 
iflfreezedK 

stop  zooi  deptl); 
> 
if  (state  =-  TRUEK 

update  zoo>  dock!); 
) 


> 


I*  Function  to  get  the  departient  nunber  if  F2  is  pressed  fro«  zooi  Hindoo  */ 
int  get_dept_no(old) 
int  old; 
t 

int  deptjio,  ok; 

char  ch; 
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restore_cursorl); 
violankil,  23,  0,  23,  7»)j 

viprintfll,  23,  30,  HS6.COL0R,  "Is1,  "Departient  Nunber:'); 
getjiept: 

position_cursor(l,  23,  4?lj 

ok  =  FALSE; 

nhilellokM 

ch  =  getchll; 
iflch  <  '   ')( 

done_input(); 
returnlold); 
} 
i f (ch  <  T  ||  ch  >  ■?■){ 

ok  '  FALSE; 
lelseC 

ok  =  TRUE; 
J 
iftokK 

dept_no  =  ch  -  '0'; 
if fdeptno  >  n_depts){ 

ok  ■  FALSE; 
>else( 

ok  =  TRUE; 
fputclch,  stderr); 
> 
> 
> 
donejnputl); 

return  Ideptrto) ; 
i 

I*  Function  to  set  the  initial  :ooi  screen  H 

int  set  :oot  scrl) 

t 

DEPT  »tetp_d; 

HACH1NE  »teip  i; 

PART.INFO  *te«p_pi; 

RAN  Ueipran;  " 

PRODUCT  iteipjrod; 

int  row,  col; 

char  pchar; 

viprintfll,  1,  3,  S.TEXT.COLOR,  "Is1,  "MEEK:         BAY:1); 
viprintfll,  3,  5,  S.TEKT.C0LOR,  "It1,  •TIltEl *  1 1 

viprintfll,  1,  9,  CL0CK.CQL0R,  "Is",  -OO'I; 
viprintfll,  1,  18,  CLOCK  COLOR,  "Is",  'O'l; 
viprintfll,  3,  11,  CLOCK  COLOR,  "Js1,  -OOiOO1); 
viprintfll,  6,  3,  S.TEIT.COLDR,  "Is",  "Shop  «orks  far:'); 
viprintfll,  B,  3,  TITLE  COLOR,  "Is1,  "hrs  per  day1); 
viprintfll,  8,  17,  8.RED*F_NMTE*INT,  "CiC,  hrs  per  day!; 
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viprintf  [1,10,  3,  TITLE.CDLOR,  "Is" ,  "days  per  nee*"); 

viprintf(l,10,  18,  B.RED+F.WITE+INT,  -lid',  days  per  »eek); 

viprintf (1,  3,  62,  TITLE.CDLOR,  'Is",  'Kin  inventory'!; 

viprintf (1,  3,  76,  B_RED+F_MHITE+INT,  '  7.2d",  iin  invl; 

viprintf (1,  3,  58,  TITLE.COLOR,  "Is*,  "Purchase  lot  size"!; 

viprintf (1,  5,  74,  B_RED*F_HHITE+INT,  "I3d",  purchase  lot  size); 

viprintf (1,  7,  61,  TITLE.COLOR,  "Is",  "Transfer  batch");  " 

viprintf  (1,  7,  76,  B_RED*F_WHITE+ 1  NT ,  "IW,  transfer  batch); 

viprintf (1,  9,  58,  TITLE.COLOR,  "Is",  "Nat  handling  cost"); 

viprintf (1,  9,  76,  B_RED*FJIMTE*INT,  "I3d",  sat  handling  cost); 

viprintf!!,  11,  60,  TITLE.COLOR,  "7.s",  "Meekly  expense");" 

viprintf (1,  11,  75,  B.RED+F.HHITEtlNT,  "I4d",  other  op  expense); 

viprintf (1,  13,  2,  S.TOT.C0L0R,  "is",  "Ran  .ateriai  cost"); 

ro»  =  15; 

col  =  4; 

for(te«p.ra«  =  ran.iat;  te«p_ra»  !=  NOLL;  te«p.ra«  =  te»p.ra«->next,  ro»+*)( 

■ap_part_type(teip.ra»->ra«. iat.no,  fcpchar); 

viprintf 11,  ro»,  col,  TITLE.COLOR,  "  Ic  -  ",  pcharl; 

viprintf  (I,  ron,  col+6,  B_BLflCK+F_CYftN+INT,  "«4d",  tenp.ran-kost); 

viprintf (1 ,  13,  64,  S.TEXT.COLOR,  "Js",  "Product  price"!; 

ron  ■  IS; 

col  =  66; 

forlteip.prod  =  product;  teip.prod  '  =  NULL;  teip.prod  =  te«p_prod->next,  ro»t*!( 

■ap_part_type(teip_prod->prod_no,  &pchar! ; 

viprintf (1,  ro»,  col,  TITLE.COLOR,  "Ic  -",  pchar); 

viprintf (I,  ro«,  col+4,  B_BLACx>F_CYAN*INT,  "<I4d",  te»p.prod->pricel; 

zooa(zooB.dept); 

int  set_act_«indo«(dept_nol 

int  dept.no; 

t 

DEPT  »teip  d; 

MACHINE  ♦te«p_«; 

int  ro»,  col; 

for(ro»=15;  ro«  <  22;  ro»*+)< 

for(col=23;  col  <  57;  col«-}{ 

viputcll,  ro«,  col,  STAT.ACT.COLOR,  '  I; 


viprintfll,15,24,B.BLUEtF.BRDNNtINT,"DepartiientIld  -  Activation  Report", dept  noli 
viprintf (1,  16,  26,  STAT.ACT.CDLOR,  "Js",  "Nacht   Prodi  Setupl  Idle!");  " 
for(teip_d=dept.hj  te«p.d->dept_no  !=  dept.no;  teip  d  =  teup  d->next); 
for(te.p..=tetp.d->iach,  ro»=17;  te.p.i  !«  NOLL;  teip  ,  =  teip  ■->next,ro»t*){ 
viprintfd,  ro»,  28,  STAT.ACT.COLOR,  "lid",  teup  «->.ach  nol; 
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/*  Function  to  update  Activation  Report  in  the  :oo«  «indo»  */ 
int  update_zoo«_act(dept_no) 
int  dept_no; 
{ 

unsigned  long  int  totaltiie; 

unsigned  long  int  prodtiie,  setup_ti«e,  idletine; 

int  prod,  setup,  idle; 

int  row,  col; 

DEPT  *teip_d; 

MACHINE  «te«p.i; 

ro»  =  17; 

col  =  35; 

far tte»p_d  ■  depth;  teipji  !=  NULL  U  teip_d->dept_no  !•  dept_no;  \ 

te«p_d  =  te«p_d->next); 
far (te«p_«  -  te«p_d->iach;  te»p_i  !  =  NULL;  te«p_i  =  te»p_i->nent){ 
total. ti«e  =  tiae_no«; 
if  (total _tiie  !■"(»{ 

setup_ti«e  ■  tetp_»->ti»e_setup; 
prod_tiie  =  te»p_»->ti»e_busy| 
if(te«p_i->«state  ==  1){" 

setup  tiie  +=  (tiie  no*  -  te*p  »->state  change  tuel; 
> 
if  (te#p_i->istate  —  2H 

prod  ti«e  ♦=  (tine  non  -  te«p  «->state  change  tiie!; 
} 

setup  =  lint!(((dQuble!5etup_ti«e/(double)total_tue)«10QL!; 
prod  =  (intll(!double)prod_ti«e/(doubleitotal_tiie)«100L!j 
idle  =  100-(prod*setup); 

viprintfll,  roil,  col,  STAT_ACT_CDLOR,  "X3d",  prod); 
viprintfll,  rem,  col*7,  STftT_ACT_CDLOR,  'Ki',  setup); 
viprintfd,  ron,  col+15,  ETAT.ACT.CDLOR,  "I3d*,  idle); 


} 

TDH++J 

> 

int  stc,._:ooi_dept() 

DEPT  Hetp.dj 
NACHINE  neip.n; 
int  ran,  col; 

ro»  -  :ooi_ro»*l; 
col  =  zooi_col+l; 
for(teip_d  »  dept_h;  teip.d  !•  NULL  H  teip_d->dept_no  !  =  zoo«_dept;  \ 

te«p_d  =  te«p_d->ne«t); 
for(te«p_i  =  teipjf->tach;  te«p_i  !=  NULL;  teip.i  •  ttip.l->m«t)l 
if((teip_i->istate  ==11   !!   (te«p_t->istate  ==  2)K 

vichgattU,  run,  col,  1,  BLNK1; 
) 
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row  =  row+2; 
! 


int  sUrt_200«jfept(i 
C 

DEFT  «te»p.d) 

IttCHINE  »to«p_i; 

int  Ton,  col; 

ro»  =  !OOi_ro«*lj 
col  =  zoo»_col+l; 
for(teip_d  =  dept_h;  te«p_d  !=  NULL  M>  te«p_d->dept_no  !=  zootjeptj  \ 

te«p_d  =  teip_d->next); 
for!tetp_i  ■  te«p_d->«acl)j  tetp_a  !=  NULL;  teip.n  =  te»p_i->nextH 

if((te§p.i->Mtate  ==  t)  !!  Ite«p_i->istate  ==  2H< 
vichgattll,  rim,  col,  1,  BLNK); 

> 

row  =  row+2; 
> 
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SAMPLE  INPUT  FILES 
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cash: 
expense; 

0 

ndepts: 

5 

n_ptypes: 

5 

«ax_ops: 

i 

routing: 

13  5  2  0  0  0 

3  4  5  2  12  0 

15  2  5  3  4  0 

13  5  4  0  0  0 

2  5  4  3  12  0 

routing_ro»: 

0 

routinq_col: 

42 

deptjio: 

1 

machines: 

3 

naach_in_use 

ton: 

1 

cols 

21 

dept_no: 

2 

n«achines: 

3 

mach_in_use 

ro»: 

14 

coll 

21 

dept_no: 

3 

ntachines: 

3 

n»ach_in_use 

ro«: 

9 

col: 

45 

dept_no: 

4 

machines: 

3 

mach_in_use 

ron: 

1 

col: 

68 

dept_no: 

5 

machines: 

3 

ntach_in_use 

ron: 

14 

col: 

68 

rawjiaterial 

5: 

ron: 

8 

col: 

11 

n_ra»_tat: 

5 

25000 
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raM_eateria 

_cost 

1  "  20 

2   30 

3   15 

4   25 

5   10 

products: 

row: 

8 

col: 

60 

n_products: 


product_pnces: 

1   B0~ 

5 

2   100 

10 

3   90 

20 

4   110 

25 

5   60 

10 

setup _tites: 

repeat=0 

240  120  320 

160  1B0 

80  120  220 

0  130 

60  210  100  225  130 

0  110  120 

115  220 

60  220  110 

135  130 

repeat=l 

0  0  0 

0  0 

0  125  0 

0  165 

0  0  0 

0  0 

0  0  0 

0  0 

115  0  100 

0  0 

■achining_ti»es: 

repeat=0 

5  12  18 

6  6 

50  43  16 

0  10 

16  5  17 

23  28 

0  12  26 

36  18 

8  11  21 

31  26 

repeat=l 

0  0  0 

0  0 

0  2  0 

0  8 

0  0  0 

0  0 

0  0  0 

0  0 

16  0  12 

0  0 
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part_type:raii_tatenal-reiation5tiip: 
rattttt 


ptype 

2 

2 

3 

3 

4 

t 

5 

5 
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cash:           22108 

eapense:        2892 

ndepts: 

5 

njtypes: 

5 

•axops: 

6 

pace: 

5 

routing: 

13    5    2 

0 

0    0 

3    4    5    2 

1 

2    0 

15    2    5 

3 

4    0 

13    5    4 

0 

0    0 

2    5    4    3 

1 

2    0 

routing_row: 

0 

routing_col: 

♦2 

ra*_iat_ro»i: 

e 

ra«_iat_col : 

n 

prad_ro«: 

9 

prod_col: 

50 

n_raw_eat: 

5 

njroducts 

5 

priority_ran: 

0 

priority_col: 

0 

dept_no: 

1 

machines: 

3 

miach_in_use: 

3 

ran: 

1 

col: 

21 

•achines  in  this  department: 

ro»:col:«ach_no:repeat:setup_for:istate:usr_stopped:st_chg_tne: idle: setup: busy 
1  21  1  0  1  2  0  "345  0  240  105 
3  21  2  0  3  2  0  338  1  320  17 
5  21   3    0     4      2       0       344     1?  1  bO   165 


dept_no: 

2 

machines: 

3 

nBach_in_nse: 

1 

ro«: 

14 

col: 

21 

•achines  in  this  departient: 

ro»:col:iach_no:rep eat :setup_f or :«state:usr_stopped:st_chg_tiie: idle: setup: busy 
H  21  1  0  5  2  "0  "340  21  130  189 
16  21  2  0  224  0  0  0  0  0  0 
18  21   3    0    224      0       0        0     0   0    0 

dept_no:       3 
machines:      3 
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neach_in_use:  3 

rom  9 

col:  45 

machines  in  this  department: 

ron: col :mach_no:repeat:setup_f or :»state:usr_stopped:st_chgJi me: idle: setup: busy 

1    45       1  0            2              2                 0                 345            0    210      135 

11    45       2  0            4              1                 0                 176            0       0         0 

13    45       3  0            1              2                 0                 342            2      60       30 

deptjio:  4 

Machines:  3 

nmach_in_use:  2 

ro»:  1 

col:  68 

Machines  in  this  department: 

ro»:col:iach_no:repeat: setup Jor:istate:usr_stopped:st_chq_tine: idle: setup: busy 

1    69       1  0            2              2                 0                 342            0    110        12 

3    69       2  0            5              1                 0                 332            0       0         0 

5    68       3  0         224              0                 0                    0            0       0         0 


dept_no: 

5 

machines: 

3 

nsach_in_use: 

2 

ron: 

[4 

COll 

66 

•achines  in  this  department: 

ro«:col:iach_no:repeat:setup_f or :mstate:usr_stopped:st_chq_ti«e: idle: setup: busy 
14    68       1  0  5  2  0  "332  2    130       50 

16    68       2  0  1  1  0  342  0       0         0 

18    6B       3  0         224  0  0  0  0       0         0 


part_information: 

dept_na:ro»: col :repeat;ptype:ptype_in_char; pre: post: 


2 

12 

0 

1 

3 

12 

0 

2 

i 

12 

0 

3 

5 

12 

0 

4 

6 

12 

0 

5 

2 

15 

12 

0 

1 

2 

16 

12 

0 

2 

2 

17 

12 

I 

2 

2 

IB 

12 

0 

3 

2 

19 

12 

0 

5 

2 

20 

12 

1 

5 

3 

10 

36 

0 

1 

A 

4 

I 

6 

0 

0 

C 

4 

1 

0 

7 

1 

E 

0 

0 

A 

0 

0 

B 

0 

0 

B 

0 

0 

C 

0 

0 

E 

4 

1 

E 

0 

'1 
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3  U 

3a 

0 

2 

B 

3 

1 

3  12 

36 

0 

3 

C 

0 

0 

3  13 

36 

0 

4 

D 

22 

0 

3  14 

Si 

0 

5 

t 

0 

0 

4   2 

5? 

0 

2 

B 

25 

1 

4   3 

H 

0 

3 

C 

0 

0 

4   4 

59 

0 

4 

D 

0 

0 

4   5 

59 

0 

5 

E 

2 

I) 

5  IS 

59 

0 

1 

n 

2 

0 

5  16 

59 

0 

2 

8 

0 

0 

5  17 

5= 

0 

3 

C 

0 

0 

3  ia 

59 

1 

3 

C 

0 

0 

5  19 

59 

0 

4 

0 

0 

0 

5  20 

59 

0 

5 

E 

IS 

0 

ra*_iaterials: 

ran  sat  no:cost:ron:col 


1 

20 

9 

11 

2 

30 

10 

11 

3 

15 

11 

11 

4 

25 

? 

2! 

5 

10 

10 

2! 

0 

5 

9 

60 

0 

10 

10 

60 

0 

20 

11 

60 

0 

25 

9 

70 

0 

10 

10 

70 

products: 

prod_no:price:qnty_produced:Ii«it:romcol 
i       80 

2  100 

3  90 

4  110 

5  60 


setup _tiies: 
repeat1  0 

240  120  320  160  180 

BO  120  220  0  130 

60  210  100  225  130 

0  110  120  115  220 

60  220  110  135  130 

repeat=  1 

0   0  0  0  0 

0  125  0  0  165 

0   0  0  0  0 

0   0  0  0  0 

115   0  100  0  0 
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tactiining_ti«85'. 

repeat=    0 

5      12 

!8 

9 

6 

50     43 

16 

0 

10 

16        5 

17 

23 

28 

0      12 

26 

3b 

18 

8      11 

?1 

31 

26 

repect=    1 

0       0 

0 

0 

0 

0       2 

0 

0 

a 

0       0 

0 

0 

0 

0       0 

0 

0 

0 

16       0 

12 

0 

0 

part_type:ran_»ateria 

1-relationship 

ptype  ramal 
j              1 

2             2 

3             3 

4              4 

5             5 

tiie_no»: 

345 

Keek_naw: 

0 

dayjion: 

0 

hr_non: 

5 

fliin_no«: 

45 

deleted: 

0 

userspeciHed: 

0 

processing: 

0 

autojurchass 

I 

autosetup: 

1 

auto_«ove: 

1 

:DOi_ro»: 

4 

zoo«_col: 

39 

ZDon_dept: 

1 

«in_inv: 

2 

purchase_lot^ 

.sizi 

5 

transferbatch: 

2 

■at_handling_ 

cost 

1 

other_op_expense: 

200 

statistics_struct 

ire: 

ro«: 

5 

col: 

27 

start_cash: 

25000 

cashnon: 

22108 

sales_revenue 

0 

raN_«at_exp: 

2475 
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aat_hand_exp 

4s 

other_op_esp 

0 

net_cash_flot 

: 

0 

event_tiie: 

346 

neeki 

0 

day. 

0 

hr: 

5 

■in; 

46 

event_varli 

0 

event_var2: 

0 

event_var3: 

0 

event_var4: 

0 

event_type:  c 

lock_ 

tick 

■odif ier:  ( 

CALENDAR  J.IS1 

: 

•odif ier: 

tllE 

»eek:day 

nrs 

nin 

:event  function  ptr:a 

3 

c 

d 

346 

0 

0 

5 

46 

docktick 

0 

0 

0 

0 

347 

0 

0 

5 

47 

clocktick 

0 

0 

0 

0 

:*a 

0 

0 

5 

4E 

clock_tick 

0 

0 

0 

347 

0 

0 

5 

49 

clock_tick 

0 

0 

0 

0 

350 

0 

0 

5 

50 

unload 

2 

0 

o 

750 

0 

0 

5 

50 

load 

2 

0 

5 

350 

0 

0 

5 

50 

clock_tick 

0 

0 

0 

350 

0 

0 

5 

50 

unload 

3 

0 

0 

350 

0 

0 

5 

50 

load 

3 

0 

2 

350 

0 

0 

5 

50 

unload 

1 

0 

0 

350 

0 

0 

5 

50 

lead 

1 

0 

1 

552 

0 

0 

5 

52 

unload 

1 

0 

0 

352 

0 

0 

5 

52 

load 

1 

0 

4 

154 

0 

0 

5 

54 

unload 

4 

0 

0 

354 

0 

0 

5 

54 

load 

4 

0 

2 

356 

0 

0 

5 

56 

unload 

1 

0 

0 

356 

0 

0 

5 

56 

bad 

1 

0 

3 

358 

0 

0 

5 

53 

unload 

5 

0 

0 

359 

0 

0 

5 

56 

load 

5 

0 

5 

359 

0 

0 

5 

59 

unload 

3 

0 

0 

1 

358 

0 

0 

5 

59 

load 

3 

0 

1 

a 

402 

0 

0 

6 

42 

load 

3 

0 

4 

i 

403 

0 

0 

6 

43 

load 

5 

0 

1 

t 

553 

0 

0 

1 

13 

load 

4 

0 

5 
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ABSTRACT 

The  objective  of  this  work  is  to  develop  an  interactive 
simulator  which  will  help  the  user  in  the  simulation 
training  of  production  management  and  to  facilitate 
instruction  in  production  scheduling  by  aiding  the 
visualization  of  the  effects  of  changes  in  a  production  and 
inventory  system. 

The  simulator  which  runs  on  an  IBM-PC  or  compatible 
computer,  features  a  character  output  in  addition  to  other 
features  such  as  zoom,  future  event  chain  display,  and 
statistics  display.  It  is  completely  menu-driven  and  can 
run  in  automatic  as  well  as  manual  mode.  Typically  it 
simulates  a  job  shop  atmosphere  wherein  the  primary  events 
are  purchase,  setup,  load,  unload  and  transfer.  Scheduling 
of  these  events  was  made  flexible  by  allowing  the  user  to 
specify  the  event  time  in  addition  to  the  event  type.  It 
has  an  option  to  save  the  current  simulation  state  on  the 
disk  and  to  run  the  simulation  at  a  later  stage  from  that 
point.  Using  an  input  file  as  a  preload  device  allows  one 
to  do  external  analysis,  say  using  a  spreadsheet,  and 
postulate  scheduling  alternatives  which  may  be  evaluated  by 
the  simulator.  Finally  it  is  interesting  to  contrast  the 
simulator  with  the  scheduling  of  a  real-life  plant  whose 
production  processes  are  greatly  more  complicated  than  the 
existing  ones. 


